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LES NOTIONS 
EN MEMOIRE 
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Les nouveaux venus à la 
micro-informatique se sentent 
un peu "perclus" dès qu'on 
parle de la mémoire d'un 
micro. Et comme c'est un 
sujet incontournable, on est 
bien obligé de se "faire une 
petite idée sur la question"... 
juste le stricte nécessaire... et 
c'est là que l'on part avec des 
idées fausses. Lesquelles vous 
conduiront forcément un jour 
à un échec cuisant et... 
mémorable. Que diriez-vous si 
nous partions sur des bases 
saines ? 

Dans chacun de nos paragra- 
phes, on démarrera au "niveau 
zéro", puis on prendra un peu 
d'altitude. Donc, si vous êtes déjà "pas 
mal informé", survolez vite les débuts ; 
si vous êtes tout à fait débutant, n'hési- 
tez pas à "décrocher" et passez au 
paragraphe suivant, dès qu'une douleur 
se précise sous le cuir chevelu (ou 
chauve, au choix...). 



LA NOTION D'OCTET «^H 

t'octet est l'unité de base de l'informa- 
tique. Une lettre, un chiffre, un signe de 
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ponctuation, même un espace (ou blanc) 
occupent UN octet ; le mot AMSTRAD 
représente donc sept octets, déjà... On 
a donc intérêt à en avoir le plus possi- 
ble de disponibles dans notre machine. 
L'origine de ce mot vient qu'il représente 
huit BITS : le bit est un potentiel électri- 
que valant 1 ou (physiquement 5 ou 
zéro volt). Ces huit bits ne peuvent repré- 
senter que 256 combinaisons possibles, 
de à 255. 

Un octet est avant tout une valeur numé- 
rique. Ainsi, pour le mot AMSTRAD, 
c'est en fait la suite des "codes ASCII" 
des lettres qui composent ce mot : 65, 
77, 83, 84, 82, 65 et 68. 
Quand vous tapez AS = "AMSTRAD" 
ces sept octets vont être logés quelque 
part dans la mémoire du micro. En 
revanche, si vous sauvegardez AS sur 
disquette ou sur cassette, ces petits octets 



seront reproduits sur support magnéti- 
que. La mémoire du micro est "volatile" 
(si on éteint), on l'appelle aussi 
"mémoire vive" ou "RAM". Elle est limi- 
tée sur CPC à 65.535 octets. Sur une dis- 
quette, on peut stocker jusqu'à 1 82.272 
octets par face ; elle est plus stable, on 
l'appelle communément la "mémoire de 
masse". 

Et le kîlo-cctet ? La farce est qu'il vaut 
1024 octets. Ne croyez pas que les 
Anglais soient à l'origine de cette unité ! 
On a choisi 1 024 parce que c'est le mul- 
tiple de 256 qui est le plus proche de 
1 000 et, de ce fait, 1 000 ferait figure de 
multiple bâtard et d'emploi scabreux. 

LA NOTION D'ADRESSE HM 

Si on fait B$ = "SORACOM", ces sept 
octets sont logés à une certaine "adresse 
mémoire", que nous ignorons. Faisons 
ensuite PRINT B$. Le micro consulte son 
"Registre des variables". Il y trouve 
B$ = variable de type chaîne, de lon- 
gueur sept, logée à partir de l'adresse 
3672 1 . Puis il en fait une copie à l'écran, 
sous forme de caractères puisqu'il s'agit 
de représenter une chaîne. 
Or, ces fameuses adresses ne peuvent 
être comprises qu'entre zéro et 65535 
(= 64 kilo octets) ef ce, que vous ayez 
un CPC 464, 664, 6128 ou un PCW 
85 12. Pourquoi ? Parce que ces appa- 
reils sont équipés d'un micro-processeur 
Z80 qui, lui, ne peut adresser que sur 
deux octets, soit 64 Ko. En voici la 
raison. 
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Représentons la mémoire adressable 
comme une grille (genre grille de bataille 
navale) de 256 sur 256. Donc, on dési- 
gne l'adresse d'un octet par ses positions 
"horizontale" (un octet) et "verticale" 
(un second octet). Or, notre Z80 (une 
"puce" silicium à 50 francs TTC) ne sait 
travailler que sur 8 bits (= 10 octets). Il 
ne peut donc adresser que sur 256x256 
(= 65536 cases mémoires). 
Certains vont s'écrier "et mes 1 28 Ko de 
mon 61 28 ? Et mes 5 1 2 Ko de mon PCW 
85 1 2 ?". Du vent ! Tout ce qui est supé- 
rieur à 64 Ko, c'est du "disque virtuel", 
c'est-à-dire de la mémoire de masse mais 
d'accès ultra rapide. Nuance... 
De nos jours, le kilo-octet est devenu très 
bon marché (je parle de ses composants 
électroniques), tandis qu'un micro- 
processeur travaillant sur 16 bits coûte 
environ 150 francs de plus qu'un Z80. 
D'où votre indignation ! "Pourquoi cette 
mesquinerie de 1 50 francs qui limite ma 
mémoire disponible avec cette trottinette 
de Z80 ?" Parce que l'exploitation d'un 
micro-processeur 16 bits coûte beaucoup 
plus cher. Pour vous en convaincre, com- 
parez l'intérieur d'un CPC et celui d'un 
compatible IBM-PC. 



Pourquoi ces adresses 
en hexadecimal ? 

&BB06, &A000 est un type d'écriture de 
nombres qui déplaît aux débutants. Ça 
fait un peu code secret, voire un peu sno- 
binard du genre "Do you speak 
Hexa ?". Vous préféreriez l'écriture nor- 
male (dite en décimal), alors sachez que 
si tel programmeur utilise des adresses 
en hexa, c'est pour simplifier son tra- 
vail. Tout particulièrement parce qu'elles 
sont plus faciles à retenir. Exemple de 
quelques adresses importantes : 
&A000, &BB06, &BB4E, &C000. Elles 
donnent en décimal 40960, 47878, 
47950, 49152 : aussi difficile à retenir 
que des numéros de téléphone ! 
Le préfixe HEXADECI signifie SEIZE, 
parce que l'on dispose de 1 6 symboles : 
les chiffres à 9 et les lettres A à F (elles 
prennent la suite des chiffres : A = 10 ; 
F = 15). Pour écrire un nombre corresv 
pondant à 1 octet, on utilise 2 symboles : 
&0A = 10 ; &FF = 255. Comme pour 
une adresse mémoire, il nous faut deux 
octets ("horizontal" et "vertical"), on les 
juxtapose ; exemple &0AFF (qui vaut 
&0A multiplié par 256 plus &FF, soit 
2560 + 255 = 2815). 
Et voici la preuve que c'est logique : 
souvenez-vous de vos parties de 
bataille navale" : pour désigner une 
case, on dit "Tir en D5" ; préféreriez - 
vous "case numéro 35" ? 
Le but de ce paragraphe n'était pas de 
vous convertir à un usage définitif de la 
notation en hexadécimal, mais de la ren- 
dre moins antipathique à certains d'en- 
tre vous. 



Le plan de la mémoire 




Les concepteurs d'un micro-ordinateur 
sont les seuls à décider comment ces 
64 Ko vont être organisés, répartis. 
Ainsi, le plan de la mémoire d'un CPC 
ne ressemble en aucune manière à ceux 
des Orïc Atmos, MSX, Spectrum, Com- 
modore 64, Apple Ile, etc. Je dirais 
même que ce plan est très astucieux, d'où 
des performances qui ont contribué à 
l'anéantissement commercial de ses con- 
currents à l'époque de son lancement 
(janvier 1985). 

Voici le plan très schématique de 
l'adresse : 49152(&C000) à 65535 
(&FFFF), le "sommet", c'est la zone 
réservée à l'écran. Nous y reviendrons. 
La zone située juste au-dessous est réser- 
vée au fonctionnement du CPC ; elle est 
protégée, on ne doit pas y "écrire". 
Tout "en bas" de la mémoire se trouve 
une autre zone protégée, très petite, de 
à 367. 

Pour programmer, il nous reste donc une 
zone qui va de 368 (&0170) jusqu'au 
"plancher" de la grande zone réservée, 
lequel se trouve "aux alentours" de 
43000. Pourquoi cette imprécision ? 
Parce que cela varie avec le modèle de 
CPC. Pour connaître cette adresse 
exacte, tapez : 

PRINT HIMEM 

HIMEM vient de HIGH MEMORY, le 
haut de la mémoire disponible. Exem- 
ple, sur un CPC 464, le HIMEM est de 
43903, mais si on l'équipe du lecteur de 
disquettes DD1, le HIMEM tombe à 
42619. Attendez-vous à des valeurs 
inférieures avec les CPC 664 et 6128. 
La quantité d'octets disponibles est donc 
de HlMEM-368. Mais il y a un moyen 
plus simple de le savoir. Tapez : 

PRINT FRE(0) 

Le cas du basic 

Dans les CPC, le BASIC est "résident", 
c'est-à-dire qu'il est dans un circuit élec- 
tronique de type "EPROM" : c'est une 
mémoire de 32 Ko indélébile, que l'on 
peut seulement lire, d'où son autre nom 
de"ROM"(= ReadOnly Memory). En 
somme, c'est un assemblage de mini- 
programmes permanents, totalisant 
32 Ko qui s'ajoutent aux 64 Ko de 
"mémoire vive" (ou RAM). Mais com- 
ment est-ce possible ? Considérez cette 
EPROM comme étant une "disquette en 
silicium" : lorsque vous faites appel à 
une fonction BASIC, le système va la 
chercher dans l'EPROM et exécute ce 
mini-programme en assembleur. 
NOTA : cette technique fut considérée 
à l'époque comme révolutionnaire, car 





Adresses : 
&FFFF (65535) 

ECRAN (&4000~16Ko) 
&C000 (49152) 
(Réservé) 



(dépend du CPC) 
HIMEM d'origine 



> Programmes .BIN 



M HIMEM fixé 
par MEMORY 

Variables créées 
par le programme 
BASIC 




FRE (0) 

(octets disponibles) 



Programme BASIC 
chargé par LOAD 
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avant le CPC, les micros chargeaient en 
RAM la totalité du BASIC de 
l'EPROM (à la mise sous tension). De ce 
fait, il restait peu de Ko disponibles pour 
programmer (25 à 32 Ko). 
Revenons à notre plan de la mémoire : 
chargeons un programme BASIC par 
LOAD. Il va se loger dans le bas de la 
mémoire à partir de l'adresse 368. Si 
nous faisons un PRINT FRE(O), nous 
lisons une valeur plus faible. Normal, 
c'est ce qu'il reste entre le bout du pro- 
gramme et le HIMEM. OK ? Faisons 
RUN. 

Notre programme va forcément créer 
des variables dont les valeurs vont être 
stockées en RAM. Où ça ? Sous le 
HIMEM. Elles s'empilent par le haut. Le 
FRE(O) diminue donc, car la zone des 
octets disponibles a un plancher fixe (la 
fin du programme chargé) et un plafond 

3uî ne cesse de descendre à mesure que 
e nouvelles variables sont mémorisées. 
NOTA : ce logement des variables au 
plafond fut lui aussi révolutionnaire, car 
Tes BASIC plus anciens (y compris le 
GWBASIC des compatibles PC) entas- 
sent leurs variables au-dessus du pro- 
gramme (plafond fixe, plancher mon- 
tant). Défaut, si à la suite d'un BREAK, 
on modifie une ligne du programme tou- 
tes les variables sont perdues. Ce qui 
n'est pas le cas des CPC. 

Peek et poke 

PEEK permet de lire la valeur de l'octet 
situé à l'adresse indiquée. POKE fixe la 
valeur de l'octet à l'adresse indiquée. 
Faites un RESET de votre micro et tapez 
PRINT PEEK (12000). Réponse zéro. 
Normal, la mémoire disponible est 
encore vide. Puis entrez : 
POKE 12000,145 
PRINT PEEK (12000) 
Réponse 145 
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Remarquez que l'adresse est mise entre 
parenthèses dans PEEK et pas dans 
POKE. Pourquoi ? Parce que PEEK est 
"fonction" BASIC (qui renseigne sans 
rien changer), tout comme PRINT LEFTS 
(AS, 2) qui ne change pas la valeur de 
A$. En revanche, POKE est une "instruc- 
tion" BASIC (= commande) qui modi- 
fie quelque chose, tout comme RENUM 
1000,423. Or, vous remarquerez que 
les paramètres des "fonctions" se met- 
tent entre parenthèses, ce qui n'est pas 
le cas des "instructions". (Une excep- 
tion, MID$ qui est utilisé à la fois comme 
fonction et instruction). 
Vous pouvez demander des PRINT 
PEEK dans n'importe quelle zone, même 
dans les protégées, ce n'est pas défendu 
et c'est sans risque. En revanche, un 
POKE d'une valeur quelconque "là où 
il ne faut pas" peut avoir des conséquen- 
ces inattendues. Mais sans dommages 
pour le micro ; un RESET remettra tout 
en ordre. 

Il est possible (= accepté) de faire des 
POKE dans les zones dites protégées, 
mais à vos risques et périls. Exemple 
POKE 47956, 1 et plus rien ne s'affiche 
à l'écran, même pas le curseur. 
Les paramètres de PEEK ou POKE peu- 
vent indifféremment être en décimal ou 
hexadécimal. 



LA MEMOIRE D'ECRAN 

Faites CLS puis POKE 59000,255. Un 
petit trait rouge apparaît en bas à droite 
de l'écran. Faites ensuite PRINT PEEK 
(&C000), réponse 240. C'est le début de 
l'écran, l'angle supérieur gauche. Or, 
suite à votre CLS, il s'y trouve le "R" de 
"Ready", plus exactement le haut de 
cette lettre. Alors, faisons POKE 
59000,240 et notre tiret rouge est en 
effet remplacé par un tiret jaune. 
Un circuit électroniaue spécial a pour 
rôle d'explorer (lire) la zone mémoire 
allouée à l'écran (=16 Ko) et de l'illus- 
trer sur le moniteur. L'illustrer comment ? 
Le "plan mémoire de l'écran" est assez 
complexe. L'auteur a décrit cela dans 
CPC n° 1 page 28 et dans l'ouvrage 
"Mieux programmer sur Amstrad", cha- 
pitre XV (SORACOM). 
Il est facile de sauvegarder sur disquette 
ou sur cassette votre écran actuef. 

SAVE "ECRAN",B,&C00O,&4000 

Le B signifie que l'on sauvegarde une 
zone de la mémoire (du Binaire), depuis 



&C000 et sur une longueur de &4000 
(= 16384 octets). 

En faisant CAT, vous lisez ECRAN.BIN 
1 7 Ko. Puis faites CLS:LOAD"ECRAN' ' 
et vous retrouvez votre image sauvegar- 
dée. Elle apparaît en "store vénitien" 
(25 bandes s'élargissant), car le plan 
mémoire de l'écran est discontinu. 



HlMEM ET MEMORY 

La valeur que prend HIMEM lors de la 
mise sous tension est vraiment l'adresse 
utilisable la plus haute. En revanche, on 

f>eut l'abaisser sans problème et ce, par 
a commande MEMORY. Essayez : 
MEMORY 35000 puis PRINT HIMEM 
Réponse 35000. Autre petite démonstra- 
tion "parlante". Faites uni RESET (CTRL- 
SHIFT-ESC) puis : 
H = HIMEM 
MEMORY H - 8000 
MEMORY HIMEM + 8000 

On a pu ramener le HIMEM à sa valeur 
initiale, mais si à présent on demande 
MEMORY HIMEM + 1 alors là refus net 
avec message "memory full" ( = 
mémoire pleine). 

Autre cas : faisons MEMORY 35000. Au 
delà de cette valeur, nous venons de 
créer une zone qui sera à l'abri des 
LOAD, des RUN, NEW et CLEAR. 
Chargeons un programme TRUC1 .BAS 
qui va placer par des POKE des résul- 
tats précieux à partir de l'adresse 
35001 . Ensuite, lançons un second pro- 
gramme par RUN "TRUC2" qui aura 
besoin des résultats précédents. Il les 
récupérera par des PEEK. Exemple : 

FOR N = 1 TO 2000:R(N) = PEEK 
(35000 + N):NEXT 

C'est beaucoup plus rapide que si l'on 

avait stocké ces résultats intermédiaires 

en enregistrant un fichier séquentiel ! 

(Temps d'écriture par TRUC1 + temps 

de lecture par TRUC2). Seul un RESET 

pourrait effacer ces valeurs "pokées". 

Dans TRUC 1, on aurait pu aussi stocker 

des chaînes, exemple simple : 

FORN = 1 TO20:'(LEN(A$) = 20) 

POKE 35000 + N, ASC (MID$(A$,N,1)) 

NEXT 

Que TRUC2 récupérera par 

AS = "":FORN = 1 TO 20 

AS = A$ + CHR$(PEEK(35000 + N)) 

NEXT 

Garbage 

et valeurs mortes 

Si on déclare V$ = "BORDEAUX" puis 
V$ = "PAU" puis VS = "LYON", les 
anciennes valeurs Bordeaux et Pau sont 
oubliées par le BASIC, mais pas par la 
mémoire ! Ces cadavres de variables 
mortes occupent toujours les mêmes 
"cases-octets" dans la RAM ; mais leurs 
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adresses ont été oubliées, "écrasées" 
par les adresses successives de V$. Con- 
séquence le FRE(O) diminue et, si l'on n'y 
prend pas garde, c'est le blocage du 
système, car la pile des variables (le 
"plafond") est venu toucher le "plan- 
cher" (le programme BASIC). 
Rien n'est perdu ! Le BASIC déclenche 
de lui-même un "GARBAGE", c'est-à- 
dire qu'il va éliminer les variables mor- 
tes en "remontant" ainsi les variables en 
cours. On obtiendrait la même chose par 
PRINT FRE ("") 

U n seul défaut, mais de taille, cette opé- 
ration peut demander 15 à 30 minutes... 
pendant lesquelles le clavier semble 
inerte. Ce grand ménage terminé, le pro- 
gramme reprend son-cours automatique- 
ment là où il l'avait laissé. 
Rien de tel qu'un petit programme démo 
(listing n° 1 "CIMETIERE") pour vous 
sensibiliser à ce phénomène : la chaîne 
A$ de largeur 120 caractères (= 3 
lignes en MODE1) prend 224 valeurs 
différentes. Cette plaisanterie a con- 
sommé 26906 octets I 
Un autre mange-mémoire est la forma- 
tion d'une chaîne par concaténation. 
Remplacez la ligne 40 par : 
40 AS = A$ + CHR$(C) 
Cette chaîne A$ de largeur 224 nous a 
coûté à elle seule 25450 octets ! 



10 


' CIMETIERE 




20 


M0=FRE(0) : PRINT 


I"I0 


30 


FOR C=32 TO 255 




40 


A*=STRING*( 120, 


:) 


50 


NEXT 




.60 


M1=FRE(0) :PRINT 


Ml 


70 


PRINT"Perte =" 
;M0-Mlj "octets" 




420B3 




15177 




Perte = 26706 octe 


ts 



La farce de l'openout 

Lorsqu'on programme OPENOUT ou 
OPENIN pour écrire ou charger un 
fichier, il se produit à notre insu un 
curieux phénomène farceur et dont le 
manuel ne parle pas. 
Le système se réserve 4 Ko pour ce genre 
de transfert RAM/mémoire de masse, 
une zone qu'il veut SOUS la grande 
zone protégée. Alors, il abaisse le 
HIMEM de 4 Ko, en repoussant vers le 
bas toutes les variables stockées. Après 
e CLOSEOUT ou CLOSEIN, c'est le 
mouvement inverse I S'il y a peu de 
variables, c'est quasi instantané, s'il y en 
a beaucoup, ce "mouvement d'accor- 
déon" peut demander plusieurs minu- 
tes ! Pire encore, il y a risque de perte 



du nom du fichier à l'écriture, qui peut 
ainsi être remplacé par un morceau 
d'une des chaînes sauvegardées ! Très 
drôle... 

C'est pour se mettre à l'abri de cette 
farce qu'il faut que tout programme uti- 
lisant OPENIN ou OPENOUT com- 
mence par cette ligne : 
30 OPENOUT"BIDON":MEMORY 
HIMEM-l:CLOSEOUT 

Explications : on provoque cette sauve- 
garde bidon pour que le système abaisse 
son HIMEM de 4 Ko. Là on le FIXE par 
MEMORY HIMEM-1. Comme il n'y a 
pas encore de variables stockées, c'est 
instantané. 

Dès lors, nos variables iront se stocker 
sous ce HIMEM surbaissé et les OPE- 
NOUT et OPENIN réels pourront se 
créer leur tampon de 4 Ko sans avoir à 
repousser et remonter nos variables. 
Donc plus d'attente et plus de risques de 
perte du nom du fichier. 
Vous pensez que cette manœuvre nous 
coûte 4 Ko de mémoire disponible en 
moins. C'est vrai, mais comme de toute 
façon le système nous en priverait lors 
de' chaque OPENOUT ou OPENIN, 
autant s'en priver tout de suite. Ce qui 
évite le risque d'un garbade en pleine 
sauvegarde... (ce qu'il m'était arrivé lors 
de mes débuts sur CPC 464). 
NOTA : si vous déclarez un SYMBOL 
AFTER, il faut le faire AVANT l'OPE- 
NOUT "BIDON", c'est je pense la seule 
exception à cette règle. 

Chargement de 
programmes en binaire 

Lorsque vous programmez un LOAD 
d'un .BIN, celui-ci va se loger à partir 
de son adresse départ. Imaginons 
TRUC.BIN de longueur 300 octets qui 
débute à l'adresse 39000 : il est prudent 
de faire un MEMORY 38999 afin que les 
variables BASIC aillent en dessous. Sans 
cette précaution, elles iront sous le 
H IMEM vers 42000, et lorsque l'on arri- 
vera à 39300, il y aura plantage avec 
message "memory full"... 
Variables BASIC et programmes en lan- 
gage machine n'aiment pas cohabiter ; 
il faut éviter leur contact par un H IMEM 
situé sous l'adresse départ la plus basse. 
On lance une routine .BIN par CALL 
adresse départ, exactement comme pour 
un GOSUB. La fin d'un programme en 
binaire est un code spécial qui agit 
comme un RETURN. Donc après un 
CALL, il y a retour automatique à la suite 
du programme BASIC. 
Certaines routines de l'EPROM BASIC 
sont chargées dans la zone réervée ; ce 
sont les adresses qui commencent par 
&BB et &BD. Certaines ne demandent 
aucun paramètre et n'ont pas d'équiva- 
lent en BASIC, d'où un usage courant en 
BASIC. Citons : 
CALL &BB06 bloque le programme en 



attendant une touche (idem CALL 
&BB16) 

CALL &BB4E efface les caractères défi- 
nis par SYMBOL 

CALL &BB03 vide le buffer clavier 
CALL &BD19 rend l'animation moins 
saccadée 
CALL h reset 

Incompatibilités 

de logiciels ■m^^imh 

AMSTRAD avait pourtant prévenu les 
éditeurs de logiciels de ne pas utiliser 
certaines zones de la RAM, notamment 
les quelques kilo-octets situés sous le 
HIMEM au 464. Ces recommandations 
n'ont pas toujours été respectées. Con- 
séquences : les premiers jeux sur casset- 
tes qui ne peuvent tourner sur un CPC 
équipé d'un lecteur de disquettes. Tous 
ces logiciels sur disquettes oui tournaient 
sur 464, mais pas sur 664 ou 6128 et 
encore moins sur le 6128 AZERTY. Cer- 
tains concepteurs de logiciels ont bien 
tort de se croire astucieux... 



Conclusion 

Toutes ces notions nous éviterons quel- 
ques avatars. Elles sont souvent superfi- 
cielles mais suffisantes pour comprendre 
le pourquoi de telle recommandation ou 
de tel ennui. Si vous débutez en BASIC, 
donc avec des programmes très courts, 
il n'est pas indispensable de connaître le 
plan et les caprices de la mémoire. Mais 
vous ne serez pas toujours débutant, 
vous vous lancerez dans des program- 
mes atteignant les 10 Ko, alors là, il est 
indispensable de bien posséder ces 
notions, sinon gare aux surprises... 



IMicronaute 

LE SPECIALISTE 
NANTAIS DU PC 

Revendeur qualifié conseil 



■ S.A.V. personnalisé 

> Contrat de maintenance 

■ Logiciels - Livres 

> Location 

Hl Adresse : 

9, rue Urvoy de SaintBedan 
44000 NANTES 
Tél. 40.69.03.58 
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• ELITE 

Beyond the ice palace 
est un jeu d'ar- 
cade/aventure très 
animé, très coloré et surtout 
assez difficile. De loin cela 
ressemble un peu à Rastan. 
En tout cas c'est très réussi au 
niveau des graphismes et de 
l'animation. Vous devriez 
voir arriver le petit guerrier 
pourfendeur de monstres 
courant mai. 



• PC-MART 

(Deux nouveaux produits pour 
compatibles : la carte Option 
Board Deluxe et Antidote. Le pre- 
mier est un matériel permettant la lecture 
directe des disquettes au format Macin- 
tosh à condition bien sûr de disposer 
d'un lecteur 3 1/2 pouces. De plus, les 
commandes du DOS sont utilisables avec 
le préfixe "M". 

Antidote est un logiciel au nom médical 
à utiliser contre les fameux et bruyants 
(médiatiquement parlant) virus, ces petits 
programmes occultes qui nuisent à nos 
mémoires et à nos disques. 



CEDIC NATHAN 

A Bientôt le Bac sera là. Tremblez lycéens I Je 
vise plus particulièrement ceux qui ont passé 
leurs soirées devant un Amstrad au lieu de faire 
îurs devoirs. Heureusement la collection Micro-bac 



arrive à point nomme pour vous permettre des I urbo- 
révisions". Toutes les matières importantes sont là : 
français, mathématiques, anglais, allemand, es""" 
histoire, géographie, physique/chimie. Il y er 
pour tous les niveaux et pour toutes les lacu 



• HEWSON 

Vous ne vous lassez pas des jeux d'arcades ? Tant mieux 
car le nouveau jeu de Hewson en est un. Des lasers par- 
tout, des explosions, du bruit, de la fureur et des graphis- 
mes sublimes nous sont promis par BATTLECAR MARAUDER. 
Accrochez-vous à vos claviers la tornade débarque en scrolling 
vertical fin juin. 



• GREMLIN GRAPHICS 

La mode est au skate- 
board et au bicross ^^^ 
(mais si, suivez un 
peu ce qui se passe en dehors 
de l'informatique). Alors 
Gremlin a mis ses program- 
meurs sur un projet intitulé : 
Skate Crazy. Vous êtes 
Freddy, un jeune skateur en 
quête de notoriété. Vos acro- 
baties se dérouleront sur plu- 
sieurs niveaux et compren- 
dront toutes les figures bien 
connues des habitués de 
Bercy : saut de barrières, 
tremplins et "360". 
Pour ceux que le sport lais- 
sent de marbre, on annonce 
également un logiciel d'ar- 
cade/aventure ayant pour 
cadre la Grèce antique. En 
effet, ce ne sont rien moins 
que les 1 2 travaux d'Hercule 
qui vous sont proposés. Alors 
saurez-vous relever le défi ? 
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CARRAZ EDITIONS 

JLe 22 mars au Centre Georges Pompidou se dérou- 
lait la présentation du logiciel : "Le SIDA et nous" 
sous le patronnage de Michèle Barzach. Rappe- 
ler que les bénéfices des ventes du programme seront 
'-■•égralement versés à la recherche contre le SIDA. Rai- 
%z" de plus pour acheter ce programme dès sa sortie cou- 
rem avril. 

Vous rêvez de rédiger un roman policier ? Vous vous sen- 
tez l'âme d'un Chandler ou d'une Agatha Christie alors 
Roman policier devrait vous passionner. Ce logiciel com- 
portera différentes situations que le joueur devra relater. 
Ce programme sera disponible sur compatibles et sur 
nanoréseau. 





Accord 



BRODERBUND. 



• MICROIDS 

▲ La firme française s'étend aux Etats-Unis grâce à 
la création d'un label en collaboration avec Bro- 
derbund Software. Cette société américaine est 
connue pour des titres tels que : Choplifter ou Lode Run- 
ner. Le célèbre Grand Prix 500cc se vend là-bas sous le 
nom de Superbïke Challenge. De même Super Ski va 
devenir Downhill Challenge pour envahir le marché amé- 
ricain cet été. A signaler d'ailleurs la sortie de ce logiciel 
sur compatibles au prix de 250 francs. 



nwn. Les filtres d'écran OCLI n'utilisent ni l'acryii 

n revêtement polarisant mais un verre traité spécialemei 

er 94% des reflets gênants. 

3 Victory 7100 est un copieur hardware très performant 

8 600 r. Soyons un peu sérieux, il s'agit là d'un appa 

uplication capable d'effectuer 100 copies à H 

s le tout sur disquettes 5 1 /4 et 3 1 /2 pouces. ' * 

otage, la copie et ta vérification de toutes ■ 





• UBI SOFT 

r>|On entend parler très fort d'une 
.adaptation du héros de Libéra- 
tore : Ranxérox. Attendons de 
voir comment l'atmosphère si particulière 
des albums de l'auteur italien va être 
rendue dans un logiciel. "Lubna où es- 
tu ?" 
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• SERVEUR SUR 664 

■ Un particulier, M. Fillette, nous 
signale la création d'un serveur 
sur 664. Ce serveur est disponi- 
ble au 16 (1) 34.22.09.22. tous les jours 
(même le week-end) de 18hà 14h le len- 
demain. Vous y trouverez des trucs et 
astuces, des PA, un dialogue en direct, 
des boîtes aux lettres. 
N'oubliez pas que CPC vous propose 
également ses services sur le 36 1 5 MHZ . 



• YC SA 

Enfin vous l'attendiez tous : voici 
, la version 3 .50 du célèbre géné- 
rateur d'applications Yes You 
Can. Les améliorations apportées con- 
cernent des algorithmes de tri en 
mémoire, la présence d'un compilateur, 
24 nouvelles macro-instructions supplé- 
mentaires et une convivialité améliorée . 
La nouvelle version est disponible au prix 
de 8 900 F HT. 



W WWV^^^^^^^AAAAAAAAAAAA 





• IMAGINE 

"Après Renegade voici larget 

Renegade. Avec toujours autant 

d'action, toujours autant de 

Dagarres. Le jeu se déroule en 5 

tableaux comprenant des adversaires de 

i plus coriaces tels des 
(des Hell'sj, des dames qui aiment tout 
plein le vilain argent, des Skins, des 
"Beostie Boys" puis enfin le patron : 
"Mr Big" lui-même qui o osé s'en pren- 
dre à votre frère. 



• OCTOPUS 

• ; Annonce un système complet de 
gestion : FX-OCTOPUS. Celui-cï 
permet le suivi des stocks et des 
fichiers clients et fournisseurs. Son com- 
père LF-OCTOPUS génère les états de 
synthèse et plus particulièrement les 14 
états de la liasse fiscale. Les deux logi- 
ciels fonctionnent sur compatibles PC. 



• GRADCO FRANCE 

Le COMTEST DLM-100 est un 
analyseur-testeur de données 
séries à la norme RS-232C/V.24. 
Celui-ci comprend un afficheur à cristaux 
liquides visualisant les données émises et 
les données reçues en ASCII, EBCDIC ou 
hexadécimal. Le COMTEST supporte un 
débit maximal de 38 400 bauds et per- 
met une sortie imprimante du buffer de 
28 Ko. Cet appareil est disponible au 
prix de 6 250 F HT. Vous trouverez éga- 
rement un commutateur économique à la 
norme RS-232C/V.24, le modèle 
DD-424, au prix de 785 F HT. 



• AMIE 

Une nouvelle boutique AMIE 
vient de s'ouvrir à Marseille. 
Comment vous me réclamez déjà 

l'adresse ? La voilà : 

69, cours Lientaud - 13006 MARSEILLE. 



. : . ■.■..■: 

\:. ;i nr 







B AR ENT O N 



• S.P.I.R. 

Le Salon pour l'informatique 
régionale organisée par le C.I.B. 
(club informatique de Barenton) 
aura lieu les 28 et 29 mai. Ce salon a 
pour but d'apporter l'informatique aux 
utilisateurs potentiels, c'est-à-dire aux 
artisans, commerçants, collectivités. On 
trouvera des démonstrations de logiciels, 
des présentations de matériels et un 
dîner-débat réunissant des dévelop- 
peurs, des journalistes et des conféren- 
ciers. 



• STAGE 

Le Centre informatique X2000 et 
le Microtel-Club ADEMIR orga- 
nisent un stage d'été informati- 
que. Il y aura 3 séjours différents : 2 
séjours d'une semaine (du 1.08.88 au 
6.08.88 et du 8.08.88 au 13.08.88) et 
un séjour de deux semaines (du 
16.08.88 au 27.08.88). Vous y appren- 
drez le maniement des compatibles PC, jf 
du MS-DOS, de dBase 3 plus. Mais il n'y éf_ 
a pas que l'informatiaue au programme / _J 
puisque des visites d'entreprises ainsi jjM 
que des loisirs sportifs sont compris dans EBm 
le séjour. Les prix sont de 1 800 F pour d : 
les séjours d'une semaine et de 3 600 F I 
pour le séjour de 2 semaines. Ce prix jpjgj 
comprend l'hébergement, les repas, la wmÈ 
formation, les visites guidées et l'accès 1 
au centre sportif. 

. MINDSCAPE 

Cette société ne se contente plus H 
de produire des logiciels, elle WÊÊ 
sponsorise également des rencon- I 
très de football en salle. Cela n'empê- 
che pas bien sûr de sortir 2 simulations 
de football. MISL Soccer et Superstar 
Soccer sur Commodore 64 mais bientôt 
ces logiciels sortiront sur les autres 
machines. 

• FESTIVAL 

&Le festival organisé par la fédé- 
ration des Oeuvres Laïques du 
- ' Pas-de-Calais est ouvert à tous 
les amateurs ayant créé un logiciel à 
thème éducatif. Ils ont pour cela jusqu'au 
15 juin 1988. Ce festival se déroulera 
sous le patronnage de la Région Nord- 
Pas-de-Calais, au Crédit-Mutuel, du 
groupe de Presse Faurez-Mellet et de la 
presse locale. Les meilleurs logiciels reçus 
seront édités. 
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• INFOGRAMES 

^ Allez-vous céder à la folie des 
virus ? Si la réponse est oui, allez 
donc dépenser votre argent sur le 
3615 CHOK, vous serez sans doute 
satisfait (j'en profite pour rappeler que 
les CPC ne sont pas concernés par cette 
"maladie" ceci est l'apanage des ordi- 
nateurs dits "évolués"}. 
Un accord entre Infogrames et PSS va 
bénéficier aux fanatiques des jeux de 
stratégie puisque la distribution des pro- 
duits anglais est confiée à la société de 
Villeurbanne. 

Un autre accord (un de plus} a été signé 
avec la SEPP qui détient les droits de 
nombreux personnages de bandes des- 
sinées. Pour mémoire : Spirou, Natacha, 
(Rhaa lovely II}, Bobo, les Tuniques 
bleues... Donc ne vous étonnez pas de 



a 



LORICIELS 

y Dorénavant les logiciels pour 
; : compatibles seront disponibles en 
version 3 1/2 pouces. Ceci est 
valable pour les nouveautés, mais éga- 
lement pour les anciennes versions. De 
plus, le prix reste le même pour les 2 ver- 
sions. Justement un des nouveaux logi- 
ciels est KRYSTOR un jeu de science- 
fiction catégorie Space-Opera compre- 
nant un bande audîosynchronisée avec 
le déroulement du logiciel (240 F). 
Space Racer le jeu d'arcade sublime su r 
Atari ST va sortir sur CPC et sur compa- 
tibles (199 F). Espérons que la conver- 
sion gardera les qualités de l'original. 
Cobra vient également d'être converti 
sur compatibles (240 F). 
Lorîciels s'est également associé avec 
Broderbund (voir MICROIDS) afin de 
sortir Space Racer aux Etats-Unis. 



• ERE INFORMATIQUE 

Apocalypse ce n'est pas celle de 
St-Jean mais une nouveauté dans 
le domaine du [eu de guerre (ou 
wargame). Une guerre est déclarée 
entre les forces de l'OTAN et celles du 
pacte de Varsovie. Tout se jouera à un 
missile nucléaire près. Le voilà, le voici. 
Qui ça ? Mais le missile bien sûr I Un 
compilateur BASIC qui devrait tout com- 
pilé et c'est français monsieur, ouï 1 Voir 
le banc d'essai dans un prochain CPC. 



DE GAUCHE A DROITE 

Mme J. FEREMANS (vice-président Merchandising de 
la SEPP) 

M. Ph. ACRIPNIDiS (responsable de projet Marke- 
ting INFOGRAMES) 
M. J.H. ViSCH (D.G. de la SEPP) 
M. B. BONNELL (P.D.G. INFOGRAMES). 
EDITIONS MILAN 

Trois ouvrages viennent de paraî- 
tre dans la collection ECOME- 
DIA. Ces ouvrages sont les pre- 



miers d'une série de 10 ayant pour but 
une approche plus simple de la commu- 
nication. Les premiers titres sont : "la 
Télématique", "le Complexe de commu- 
nication", "les Mémoires optiques". 
Le prix de chaque ouvrage est de 68 F 
TTC. 




la prochaine déferlante de "logi- 
ciels/bande dessinée", l'accord porte sur 
une durée de 5 ans, à raison de 3 logi- 
ciels par an. 
Dans la catégorie des logiciels annoncés, 
on trouve, mis à part la Marque Jaune, 
Vampire Empire qui met en scène le célè- 
bre chasseur de vampires : Van Helsing, 
la Panthère rose et l'air si célèbre vont 
trotter respectivement sur vos écrans et 
dans vos têtes grâce au logiciel de Magic 
Bytes (Western Games et Clever & Smart). 
Les Privés, la compilation qui tue : 4 logi- 
ciels à caractère policier : la Formule, 
l'Héritage, l'Affaire Vera Cruz et l'Af- 
faire Sydney arrivent sur votre Amstrad . 
A noter sur d'autres machines (ne soyons 
pas racistes) : les Guerriers (Atari ST) et 
les Athlètes (Thomson). 



• ORDIVIDUEL 

Les 22 et 23 mai se dérouleront 
au Centre Georges Pompidou à 
Vincennes les championnats de 
France d'échecs. Le sponsor principal 
sera Ordividuel qui offrira aux vain- 
queurs 2 Amstrad CPC. Les amateurs de 
micro et d'échecs devraient tous être 
présents. 



CPC n° 34 - Mai 1988 



13 



Q 



R 



U 



464 PRO 



Nombreux sont les lecteurs qui ont équipé leur 464 d'une 
extension de 64 Ko DK'TRONICS, d'un lecteur DDI1 et d'un 
second lecteur FD1 . Cette nouvelle configuration leur permet 
d'utiliser des programmes professionnels tels que Wordstar 
(traitement de texte), Multiplan (tableur) et dBase II (gestion- 
naire de bases de données) qui leur ouvrent véritablement 
des horizons nouveaux. 

Pour utiliser pleinement ces logiciels de qualité, il est néces- 
saire de réaliser quelques adaptations touchant le clavier, les 
caractères accentués, la gestion du curseur. Bertrand GRE- 
PINET de Rueil Malmaison nous communique l'organisation 
qu'il a adoptée pour utiliser ces 3 logiciels ainsi que DR 
GRAPH. 

Le premier tableau indique, pour chaque programme, la 
répartition des fichiers qui doivent figurer sur la copie des dis- 
quettes originales. Certains fichiers n'existent pas originelle- 
ment sur ces disquettes. Ils permettent de lancer le programme 
en entrant CPM, c'est le cas de PROFILE. SUB qui contient 
le fichier PATCH.COM indispensable au fonctionnement de 
CP/M+ avec l'extension DK'TRONICS. Ils permettent éga- 
lement de relancer un programme après retour au système, 
c'est le casçle SUBMIT suivi du nom du programme à relan- 
cer avec l'extension ".464". Ils permettent enfin de reconfi- 
gurer le davier afin d'obtenir les caractères accentués, et c'est 
fe cas de LANGUAGE.COM, et de faciliter les déplacements 
du curseur à l'écran ainsi qu'à attribuer à des touches des 
fonctions, des commandes ou enchaînements de commandes, 
c'est le cas de SETKEYS suivi de KEYS avec l'extension du 
nom du programme (pour MULTIPLAN, ".MP"). 

aisrmiïim des 



aUGTITUTIQN DES FICHIERS DE DEHAJ1RAK ET DE C0F1EUMT1W DE CLAvIETi 



• DISQUETTES DR EMPH 


DISQUETTE 


HDSSTAR 


DISQUETTE DBASE 


i DISQUETTE MlTtrUH • 






DRIVE A: 




DRIVE Us 




t DRIVE Ai 




■ FACE A 




FACE A 




FACE A 








* iMi svs 


1. 


Cl0cpa3 .en 


25K 


clOcpaï .en 


2SK 


i clOcmï .as 


2X i 


1 rl.tptl .»£ 


M 


date .cm 


3K 


date 


t« 


3K 


e date .c» 




> date -cm 


1» 


S :r« 


21 K 


«tfl 


sub 


« 




Îk * 


> têtcat: .pri 


a 




m 






IK 


•Kl .cod 










1K 


initdir 












iat 




BX 




A 




i m ,hip 






ItK 


pjtch .en 




languie? 












17K 




IK 














12K 




IK 


profile 










• graph4M. suH 


IK 


setleys .co» 


a 


set 


LUH 




* P atch -<™ 


IK < 




I» 


















IK 


















13K 


*s4W .sub 














2K 




L2K 


79K free 










IX 


«sovlyl .ovr 


m 










i language.rai 


S 


m free 








. 




> profile .sib 


K 














1 SetkeVS .LDI 


3K 














• subut ,<m 


m 










; 




iSKfree 












• 




'wittfc 








KJVEfK 




. 




iFffifl 








FACES 




; 




•OTÎDt* .„! 


10K 






datetest.hei 


IK 


t 
























17K 


















m 


















m 


















11K 
















i graphb .s.! 


* 






iip 


CM 




* 






13K 
















.graphd .ov! 


» 






11K free 




, 




i SK free pour 


les fichiers 












. 





Le second tableau donne le contenu des fichiers "TEXTE" que 
nous venons de voir. Vous remarquerez, par exemple, que 
la colonne MULTIPLAN commence par le fichier PRO- 
FILE. SUB contenant le fichier MP464.SUB, ce fichier étant lui- 
même développé, on remarque qu'il comprend le fichier 
KEYS.MP, développé à son tour dans les lignes suivantes. 



> hUTIFUH 


t DBASE 11 • 


UDPSSTAR 


J 


* .MFIIF.3I 


• * faufile. sub > 


' ffiOEltLiUB 




i DATE SET 


! DATE SET 


DATE SET 






. DB4M.SH 


tS4M.SUB 




t 1 rfW.SUB 


t i DB4M.5LB 


i «S4t4.SlB 




* UWSJWE 1 




LANGUAEE 1 




i SETKEYS KEYS.KP 


t SÉTCEYS KEYS.DFJ 


SETKTÏS KEYS. «S 




■ » 




m 




i i KEYS.rP 


l t KEYS. PS 


'WS-M 




i N "f 








t i N-D- 


• 1 1 s •? 


S S 's- 




■ S N "S" 


'• 11 B ■«■ 


12 S "u" 






i 20 s v 


20 S V 












> 10 N "H" 


. 2 H T 
* B N -S" 
t 1 N "B" 


EMA "LS:'» 1 




i 5 N "1" 


DlEflAFH • 


tîl"F 


1 1 S "B- 






; £*;£ 


i S S ■"!- 


* FflOFlLEJUB 








DATE SET 






iît"è 


6RAPH464.SIS 






< 7 H — MA" 








< EISA -DBASE DUT 


• 9WWM.SUD 




i i s -"«7" 

t S —MB" 


■ 7? S -ï- 


uweuAGE i 






SETKEVS KEVS.SAA 
















i EKE ■-S-S-3'S-S^-S"S - 










. RESTÛRE FF» HACRO 






t EtSD ■■E-E'E-E-E-E-t'E-E'E'E'E'Et 1 








i 13 S — tBl" 


1 IF DATE (1 - ■«*»■ 






• US — M2" 


i 5TB3E DATE (1 TO DAT 






i 5 S — H3" 


i i 12,22 5AY •DOfEI LA : 






t a S — Ml" 


i DATE SVP" SET DAT PlCTuEE *Wf"»-W 






i 12 S — ISS" 


• READ 






t EtSl -AFWONDiirK- 


. SET DATE TD 1MT 






• eko "Dcnocii-t; 1 








t E#B3 ■COLBttl) - 








i e«84 -Liectr 


■ inACRu.hEH 






i EH5 "SWfEOT 


i iDIR = DISF FILES LIKE *.< 






i u s —ibb." 


1 IC - hTIDIFY OWWD 






i EUS -FE0 1 


. sstf - oisp sifiLcniï 






t 3 S — W 


t HB1 - D15P hEhTKÏ 






. ÊIK 1 PC"fl:-2-rtl" 








* EBH-ortm-iBiiLO 1 


* 







Le troisième et dernier tableau indique le nouveau rôle de 
chacune des touches reconfigurées. 

CWISUKTIIM DE CLAVIEK 



tHHHH..»»»»*»™.. 


""*" 




laneewit de DBAEit Bii 


DEL seiiacs am. S gauche et efface ■ 


i F2 «t droit 




FO. 


quitter avec enreoistreKnt 




. F3 bas-droit du tableau 




FI 


























i F6 effste caractère sou 








S-CE. i ff il ■■■! de la ligne * 








caractère droit 














i F9 cellule suivante non 




OR 


eTtate caractère sous curs. 




t . Initialisation S: et 




DEL 
ErFDEL 


ST*'** 


ou ctrl «se ■ » 






t 5*F2 CHEHEHEO 




Sftiau 
Stas 


recule d un enregistraent 


uueifln 






FO SaL-«arx (t retour au «nu initial ■ 


* s+F5 satEO 




EBWS 

haut 




Fî ftse de repère de fin de bloc • 






has 


avance d'un enregistre«ent 


F3 Sesltœient de bloc dêlute i 






& — 


avance d'1 fenêtre à orpite 










avance dl fenêtre a ç*trï 


F3 Suppression d'un bloc oêliiité i 






ctrl 




Fi Fo5itiai ou curs en début de fichier • 






S*DEL 


efface contenu dl ruorioue 


F! Position du curs. en fin de fichier i 


» S+bas 14 lignes vers le 


» 






FS Recherche d'une chaîne de caractère > 
-" : Ilecherche et retolaceaent de tente < 


t 5-crochet ouvert -> ê 








. Initialisation B: et cat. pr chirgt ■ 


t S+trochet ferie — > e 




nCDIFi 
ctrl 


amw 

insérer me ligne 












ctrl 


supprimer me liane 








Sthai 










StQB 








nent 












uut 








eurs 


!£ 


noDiR amw 


SiF5 i > • 


i fais un «t par un 


litre 


iSTR 


DlSFtA" STRUCTIK 




i Taire une Sortie Fi 






DISPLAÏ rEnTJtY 




i et utiliser WRDSTAI 











Ces trucs devroient permettre aux utilisateurs présents, qui 
avaient du mal à s'organiser, et futurs, qui auront souvent 
du mal à le faire (!] de tirer un profit maximum de ces logi- 
ciels dans un maximum de confort» 
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ECRITURE RAPIDE 



A.aîn TAUBER de Colmar nous envoie cette petite routine de 
"50 octets qui permet d'accroître la rapidité d'exécution de 
instruction PRINT qui, normalement, met 3 secondes à rem- 
plir un écran. 

I! se trouve que dans bien des cas, toutes les routines utili- 
sées par l'instruction PRINT ne sont pas utilisées. L'auteur a 
aonc épuré l'instruction ce qui ne va pas, naturellement, sans 
certaines contraintes que voici. Aucun "scrolling" d'écran ne 
doit être exécuté, on n'écrit qu'en PEN 1 et PAPER 0, le 
'."ODE n'est pas actif, on utilise nécessairement SYMBOL 
-"TER 32. Mais la routine écrit 8 fois plus vite qu'en BASIC, 
cr> peut remplir la dernière case de l'écran (ligne 25, colonne 
30) sans provoquer de "scrolling", on peut obtenir des espa- 
ces de 1/2 caractère en MODE 1. 

•^our une utilisation facile, la routine comptant moins de 255 
octets, il est conseillé de la placer dans variable chaîne BASIC. 
Le premier paramètre à indiquer est la variable à imprimer, 
e second est le paramètre de localisation (à la place de 
lOCATE). Pour gagner en rapidité, calculez-le vous-même 
sachant que le nombre de colonnes est toujours de 80 (0 à 
79), le nombre de lignes de 25 (0 à 24), la valeur du 
deuxième paramètre est : n° de ligne * 80 + n° de colonne, 
^ar exemple, pour écrire en ligne 0, colonne 0, le paramètre 
sera à ou absent. Pour écrire en début de deuxième ligne 
| igné 1, colonne 0), il sera de 80. Pour écrire en milieu de 
a jatrième ligne (ligne 3, colonne 40), il sera de 280 c'est-à- 
aire (3 * 80) + 40. Pour écrire un caractère à la dernière 
position de l'écran, le paramètre sera à 1999 car ligne 24 
el colonne 79 font (24 * 80) ■+ 79 = 1999. 

10 Programme d'impression rapide 

20 SYMBOL AFTER 32 

30 DATA dd, e5, el, 16, 0, 5a, fe, 1, 28, 7, fe, 2, cO, 5e, 

23, 56, 23, e5, 21, 0, cO, 19, 30, 3, 33, 33 

^0 DATA c9, e3, 5e, 23, 56, eb, 4e, 23, 5e, 23, 56, d5, 

dd, el, 3a 

50 DATA c8, bl, fe, 0, c8, 21, 30, 0, 36, c9, f7, 3b, 3b, 

el, fe, 2, 11, 3b, 0, 20, 4, 6, 0, 18, 2, 6, a 

oO DATA 19, 70, 26, 0, 69, fe, 2, 28, 1, 29, eb, el, e5, 

; d, el, 19, 1 1, 2f, 38, 19, d8, 41, 26, 0, dd 

70 DATA 6e, 0, 29, 29, 29,11, fc, 9e, 1 9, eb, fd, e5, e 1 , 

c5, 6, 8, 48, 18, 0, la, 77, 79, 84, 67, 13 

50 DATA 10, f8, 18, 14, la, e6, fO, 77, 23, la, ed, 6f, af, 

ed, 6f, 2b, 7c, 81, 67, 13, 10, ee, fd, 23 

90 DATA cl, fd, 23, dd, 23, 10, c5, c9 

:00 IMPR$ = "":FOR X%=1 TO 150:READ 

A$:IMPR$ = IMPR$ + CHR$(-VAL("&" + AS)) : NEXT 

; Î0IMPR! = PEEK( IMPRS+1) + 256*PEEK( IMPRS+2) 

' 20 'Programme de démonstration 

-our la saisie du programme, procédez en deux temps. Sai- 
sissez d'abord la routine propremement dite et sauvegardez - 

a. Saisissez alors le programme de démonstration et 
axécutez-le. Les possesseurs de 664 et 6128 devront rem- 
z acer les deux premiers codes de la ligne 30, c8 et bl, par 
;3 et b7. Notez enfin que si le deuxième paramètre est erroné 
ou si la variable à imprimer dépasse la dernière position de 

écran, rien ne sera exécuté. Si l'ordinateur se plante, c'est 
cu'un code à été mal saisi. Si la variable s'imprime à un 
endroit incongru, c'est que l'écran est "scrollé", tapez alors 
'.'ODE 1 ou MODE 2. Veillez à ce que le premier paramètre 
soit impérativement une variable chaîne non vide (simple ou 
■nbleau). Si vous ne voulez pas être victime d'un "scrolling" 

-■empestif sans avoir à entrer MODE 1 ou MODE 2, exécu- 
tez la petite routine suivante qui remet tout à zéro : 

= S = CHRS(33) + CHRS(0) + CHR$(192) + CHR$(205) + 
:hR$(5) + CHR$(188) + CHR$(201) puis CALL 
= EEK( pS+1) + 256xPEEK( p$ + 2). Cette routine a pour 




Pierre TACONNET 



effet de ne pas effacer l'écran et de ne pas perdre la défini- 
tion des fenêtres contrairement à la commande MODE. 
Ceux qui trouvent ce truc compliqué sont vraiment de mau- 




Une modification à apporter au CPC 31 concernant ASTRO- 
NOMIE PLANETAIRE. Voci la ligne 4620 telle qu'elle doit 
apparaître. 

4620 IF (JJ > 29 AND MM = 2) OR (JJ > 28 AND MM = 2 
AND AA MOD 4 < >0) OR (JJ > 28 AND MM = 2 AND 
A A MOD 100 = 0) THE N 4790 

A vos lunettes le 



BIOCOPIE 



Et une petite sortie des courbes de votre biorythme (CPC HS 
n° 6) sur imprimante DMP 2000, ça vous intéresse ? Voyez 
d'abord le truc de M. COSTE de la Seyne sur Mer avant a' ef- 
fectuer ces modifications de Marcel BIEWER de Yutz. 

380 POKE &b338,x2 :MOVEx,41 :DRAW x,307,3:NEXT 

430 POKE &b338,x2:MOVE 0,0:DRAW 0,399,3: DRAW 

639,399,3:DRAW 639,0,3:DRAW 0,0,3:MOVE 

0,40:DRAW 639,40,3:MOVE 0,308:DRAW 

639,308,3:MOVE 0,344:DRAW 636,344, 3:MOVE 

161,308:DRAW 161,344,3:MOVE 576,308: DRAW 

576,344,3 

440 POKE &b338,x2:MOVE 16,20:DRAW40,20,1:POKE 

&b338,x2:MOVE 192,20:DRAW 23 1,20,2:POKE 

&b338,x2:MOVE 430,20:DRAW 456,20, 3:POKE 

&b338,x2:MOVE 576,308:DRAW 576,344,3 

450 POKE &b338,x2:z = -6.4:MOVE -5,184:FOR x = age 

TO age + lm 

STEPlm/100:Z = Z + 6.4:YSIN ((x*2*PI)/23)* 100 

480 POKE &b338,x2:Z = -6.4:MOVE -5,184:FOR x = age 

TO age+lm 

STEPIm/100:z = z + 6.4:Y = SIN((x*2*PI)/28)*100 

510 POKE &b338,x2:z=-6.4:MOVE -5,184:FOR x = age 

TO age + lm 

STEPIm/100:z = z + 6.4:Y = SIN ((x*2*PI)/33)* 100 

540 POKE &b338,x2:MOVE 0,0:DRAW 0,399,3:DRAW 

639,399,3:DRAW 639,0,3:DRAW 0,0,3:MOVE 

0,40:DRAW 639,40,3:MOVE 0,308:DRAW 639,308,3 

640 IF INKEY(61) = THEN CALL &bb03:MODE 2:END 

750 DIM a$(27):CALL &bb03:LOCATE 5,5:PRINT "Date de 

naissance: ";d$:LOCATE 5,7:INPUT "Entrez le jour désiré 

sous la forme <28.04.87> : ",da$ 

Il vous faudra, pour que cette sortie sur imprimante fonctionne, 
supprimer la ligne 1780» 
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MANETTES 



Michel ARCHAMBAULT vous expliquait dans CPCn° 31 la 
façon d'utiliser deux manettes de jeux. Un lecteur, Thierry 
MÂNGION de Créteil, s'est aperçu aue dans certains cas de 
figures, rares il est vrai, mais bien réels, des mouvements fan- 
tômes s'effectuaient dans l'utilisation simultanée de deux 
manettes à deux interrupteurs. Il nous propose la solution que 
voici en schémas mettant en œuvre 12 diodes 1N4148. 
L'adaptation ne devrait pas poser de problème particulier 
à un bidouilleur moyen. 

Vous disposez maintenant de manettes idéales» 



-? 



1 §1N4148| 



'Anneau de repérage de la cathode 



M 
B 
G 
D 

Fire 1 
FI» 2 



Joystick 1 

■ Voulant faire seulement Bas 
. Fait en fait Bas + Fire i 



M 
B 
G 
D 

Fire 1 
Fire 2 



Parcours électrique normal. 

Parcours électrique provo- 
quant le problème. 



Commun 1 



Joystick 1 

- Voulant faire Bas + Fire 1 

- Fait bien Bas + Fire 1 



(le fire 1 est relié en passant par les interrupteurs 
fermés du joystick 1 au commun du joystick 2 

d'où problème). 

Et maintenant la solution : DIODER (des 1 N4148 ou l'équivalent font 

très bien l'affaire). 

Voici le schéma de câblage : vous pouvez essayer, maintenant ça 
marche ! 



,»VVSiVV\^AfV>A^VVVV\fN»V 
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FRANÇAIS REUSSITE 



Cedic Nathan 



1 est courant d'enten- 
dre dire autour de soi 
que le français est une 
belle langue mais une langue 
difficile. Pour en être con- 
vaincu, il suffit de constater le 
succès que rencontre Bernard 
Pivot avec ses dictées où il est 
très rare de faire un sans-faute. 
C'est donc dans le but d'obte- 
nir le plus de réussite possible en 
français que ce logiciel a été mis 
au point pour les élèves de 
4ème. 

Français Réussite se présente en 
deux grandes parties : avant 
d'aborder toute activité de 
grammaire, vous êtes invité à 
faire des exercices de pure or- 
thographe. Pour commencer, le 
problème de la transcription du 
son [K] ; la leçon se présente de 
la manière suivante : sur la moi- 
tié supérieure de l'écran s'inscrit 
un texte où des mots contenant 
le son [K] sont écrits avec un 
blanc ; à vous de les compléter 
de façon correcte. Si vous fai- 
tes une erreur, la correction 
apparaît directement et vous 
passez au mot suivant. Dans le 
cadre de la leçon, il faut noter 
un aspect très intéressant : en 
effet, à chaque fois qu'une écri- 
ture différente du son [K] est 
rencontrée, la règle s'y rappor- 
tant s'affiche automatiquement 
à l'écran. 

Arrive alors l'instant où vous 
commencez les exercices : cinq 
sortes différentes sont à votre 
disposition. Vous pouvez sélec- 
tionner indépendamment cha- 
que série d'exercices ou com- 
mencer tout simplement par le 
premier, les autres s'enchaînant 
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alors automatiquement. Ainsi 
vous devez compléter correcte- 
ment la terminaison de 10 
mots ; puis vous devez trouver 
10 mots à partir de définitions. 
Ces deux exercices sont suivis 
par une petite série d'anagram- 
mes puis par l'écriture de noms 
liés aux verbes donnés à l'infi- 
nitif. Enfin pour terminer la 
série, il vous reste à compléter 
un texte avant de voir apparaî- 
tre votre bilan vous donnant le 
pourcentage de réussite pour 
chaque exercice ainsi qu'une 
note globale. 

Comme vous pouvez le consta- 
ter, les exercices pour travailler 
un seul son se révèlent être nom- 
breux et diversifiés ; de plus 
l'objet de l'exercice apparaît de 
façon claire et, chose très im- 
portante à notre avis, vous pou- 
vez concrètement visualiser les 
points faibles grâce au bilan. 

Toujours dans le cadre de l'or- 
thographe, vous avez le même 
déroulement que précédemment 
pour l'étude du son [J] avant de 
passer à l'étude du sujet et de la 
désinence. La série d'exercices 
permet ainsi d'accorder sujet et 
verbe puis de conjuguer au 
mode et aux temps demandés 
avant de travailler sur les termi- 
naisons et de compléter un texte 
comme dans les deux cas précé- 
dents. 

La partie orthographe étant ter- 
minée, il ne reste plus qu'à 
aborder la partie grammaire qui 
propose l'étude de 3 points bien 
précis qui sont les suivants : 
voix active et voix passive, 




Le canot coule à pic en 
accostant au quai. Sous le cno 
cope crève : quel chaos 
iptible ! 



réussit» 83% 



forme pronominale et construc- 
tion impersonnelle, accord de 
l'adjectif et du participe. Pour 
chaque partie étudiée, 6 fichiers 
sont à votre disposition afin 
d'avoir une grande diversité 
d'exercices proposés, chaque 
série se terminant bien sûr par 
un pourcentage de réussite. A 
noter également que pour cha- 
que faute commise, vous avez à 
suivre le rappel des règles qui se 
rapportent à l'exercice traité. 

A notre avis, Français Réussite 
est un logiciel fort complet qui 
peut aider un jeune à faire de 
sérieux progrès. L'utilisation du 
programme est simple et sa pré- 
sentation est claire et agréable. 
Par contre, nous avons noté un 
fait qui, nous 
l'espérons, ne se 



reproduit pas dans le reste du 
logiciel : la seconde phase du 
premier fichier pour l'étude de 
la voix active ou passive com- 
mence ainsi : J'était... Nous 
concevons que des erreurs puis- 
sent toujours passer au travers 
des contrôles mais une faute 
d'orthographe dans un logiciel 
de français !... C'est presque 
impardonnable» 
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J'APPRENDS A 
OBSERVER 



Ced/c Nathan 




ans le cadre des nou- 
velles collections lan- 
cées par Nathan, 
"J'apprends à observer" fait 
partie de la série Micro Ecole de 
la même manière que "Français 
Réussite" fait partie de Micro 
Collège en attendant que sortent 
les 10 logiciels qui vont consti- 
tuer la série Micro Bac. 
Dans le cas présent, il s'agit de 
passer une partie d'une journée 
d'école en compagnie d'un 
charmant nounours s'appelant 
Percevoir qui joue le rôle d'un 
écolier. Après un réveil plus ou 
moins difficile, Percevoir doit 
commencer par trouver dans sa 
chambre, qui n'est pas forcé- 
ment bien rangée, toutes les 
affaires qui lui sont nécessaires 
pour passer une bonne jour- 
née : son pantalon, sa chemise, 
son ourson, sa cravate, son 
bonnet, sa voiture... Tout ceci 




étant fait, Percevoir passe à une 
action qu'il n'oubliera jamais 
dans aucune circonstance : il 
s'agit du petit déjeuner ! Il doit 
donc réunir bol, cuillère, crois- 
sant et pomme suivant le même 
principe que précédemment 
mais, cette fois, une notion sup- 
plémentaire est introduite : c'est 
celle de petit, moyen ou grand. 
Ensuite, il faut préparer le car- 
table en suivant toujours le 
même principe mais en trouvant 
l'emplacement des objets 
d'après les notions : au-dessus, 
au-dessous, en haut, en bas... fi 
ne reste plus alors qu'à trouver 
le chemin qui mène à l'école 
avant de commencer à étudier. 

Le premier exercice consiste à 
faire une relation entre un chif- 
fre, son écriture et sa représen- 
tation par autant d'objets qu'il 
faut choisir dans une des neuf 
cases existantes. Le stade sui- 
vant se complique un peu car il 
faut trouver le résultat d'une 
addition de deux chiffres. Pour 
le troisième exercice, il s'agit de 
reconstituer de façon logique 
une fresque de dessins ce qui, au 
premier abord, peut paraître un 
peu difficile. Mais ce petit effort 
sera récompensé au moment 



bien mérité et toujours très 
attendu : celui de la récréation 
avec la distribution des goûters 
toujours avec ce principe de 9 
cases. Dans ce cas, neuf ani- 
maux sont à l'écran et l'enfant 
doit trouver, par exemple, qui 
prendra le vermisseau ou le fro- 
mage. .. Ceci constitue un exer- 
cice tout à fait intéressant qui 
permet de lier un animal à sa 
nourriture préférée. Enfin pour 
terminer toute cette activité, il 
faut reconstituer une histoire en 
disposant suivant l'ordre chro- 
nologique 3 images : par exem- 



ple, la poule pond un œuf que 
le lapin ramasse, qu'il peint 
pour en faire un œuf de Pâques 
et qu'il finit par cacher dans 
l'herbe pour la joie de tous les 
enfants. 

Toutes ces petites histoires per- 
mettent à l'enfant de visualiser 
les notions d'avant et après dans 
les événements. 
"J'apprends à observer" offre 
de manière très agréable la pos- 
sibilité à l'enfant de développer 
toutes ses facultés d'observation 
et de voir concrètement ce que 
représentent des notions comme 
au-dessus, à côté, avant, après. 
Les graphismes et les couleurs 
sont attrayants (certains, cepen- 
dant, trouveront peut-être les 
graphismes un peu simples). Par 
contre, nous trouvons que dans 
la première partie du logiciel 
intitulée "le matin", la corres- 
pondance des cases avec le cla- 
vier numérique prête à confu- 
sion ; en effet, pour la rangée 
centrale pas de problème ! 
Mais, pour le reste, ce qui appa- 
raît 1,2, 3 à l'écran correspond 
logiquement aux 7, 8, 9 du cla- 
vier numérique, ce qui compli- 
que les choses. Mis à part ce 
petit détail, nous vous conseil- 
lons vivement ce logiciel d'éveil. 




CPC n° 34 - Mai 1988 



BAJVC P'ESSA/ 



BPUCAT/F 




PREPARATION A LA 6 e 



Hatier logiciels 



Vous savez que dans la 
scolarité d'un enfant, 
il y a deux classes très 
importantes que l'on peut qua- 
lifier de classes clés ; il s'agit 
bien sûr de l'entrée au CP d'une 
part et de l'entrée en 6ème d'au- 
:rs part. C'est cette dernière qui 
se concernée par ce logiciel qui 
livre dans une pochette un kit 
complet pour permettre aux élè- 
ves les plus justes de mettre tou- 
tes les chances de leur côté et 
îux autres de faire une ultime 
révision avant de réaliser ce 
grand pas dans le ptemier cycle. 
Q s'agit véritablement d'un kit 
de travail car, en effet, outre la 
disquette et le manuel d'accom- 
pagnement, la mallette propose 
également un livret de dictées 
plus une cassette audio regrou- 
pant plusieurs dictées), un livret 
de calcul, un livret d'orthogra- 
phe, un livret de conjugaison et 
un livre palpitant relatant une 
enquête de François alias Sans 
Atout. Etudions d'un peu plus 
près ce que l'enfant va décou- 
vrir sur l'écran de son micro- 
ordinateur. 

Le menu principal propose trois 
parties bien distinctes ; nous 
commençons avec le bilan des 
zcquis qui couvre 6 secteurs par- 
tagés en 4 secteurs sur le fran- 
çais et 2 secteurs sur les mathé- 
matiques. Choisissons le 1er 
secteur qui couvre l'étude de 
l'orthographe grammaticale ; 
nous sommes alors invités à 
faire un exercice sur l'accord 
des adjectifs tout en se voyant 
donner une référence au livret 
d'orthographe qui nous donne 
'.s. règle. Nous devons alors 
compléter 10 phrases ; pour 
chacune d'elles, l'ordinateur 
nous dit si la réponse est vraie 
ou fausse et passe à la suivante. 
Il faut noter à ce sujet une ori- 
ginalité de ce logiciel ; en effet, 
î chaque erreur, il n'est pas 
donné de solution afin que 



(prit) pas 



ndique le mode puis le temps du 
Titre parenthèses . I 



Indicatif 
Conditionnel 
Subjonctif 
Impératif 



Présent 
Futur simple 
Imparfait 
Passé simple 
Futur an ter i - 
Plus-<ïue-parfai.t 



Mi Qui tter 

lape 1 e numéro corre s pond an t au «ode et 

ifcppuie sur ENTER. 



l'élève puisse refaire l'exercice 
après avoir relu la ou les règles 
correspondantes ; il pourra 
ainsi véritablement progressé 
par lui-même mais nous pen- 
sons que dans cette optique la 
présence d'un adulte à ses côtés 
sera parfois nécessaire afin qu'il 
ne soit pas totalement décou- 
ragé par une éventuelle stagna- 
tion dans les résultats obtenus 
à un exercice. 

Toujours dans le cadre de l'or- 
thographe grammaticale, nous 
passons ensuite à l'étude de "se, 
ce", puis de "leurs, leur", "on, 
ont", accord du participe passé, 
accord sujet -verbe, "a, à, la, 
l'a", "tout, tous, toute, tou- 
tes", "c'est, s'est, ces, ses, cet", 
et enfin les terminaisons en er, 
é(es), ai, ais, ait, aient. 
Nous continuons ensuite l'étude 
du français en abordant les su- 
jets suivants : grammaire, con 



jugaison et vocabulaire ortho- 
graphique. Il faut savoir que 
chaque série comporte 10 thè- 
mes avec 10 questions, chaque 
thème permettant d'obtenir une 
note sur 10. Vous pouvez ainsi 
constater que tout le pro- 
gramme français de CM2 est 
véritablement couvert. Pour ce 
qui est des mathématiques, le 
bilan des acquis propose d'étu- 
dier d'une part les opérations et 
mesures puis les proportions et 
géométrie. 

Nous revenons alors au menu 
principal pour accéder à une 
partie s'intitulant logique et 
méthode. Dans ce cas, nous 
devons résoudre 
de manière 




logique 15 problèmes dont 
voici, à titre d'exemple, un 
énoncé : "Un train est formé de 
wagons comportant 12 compar- 
timents de 8 places assises. La 
S.N.C.F. doit transporter 1056 
voyageurs assis. Dans ce cas, il 
va falloir trouver les réponses 
aux questions suivantes : com- 
bien y-a-t-il de compartiments 
dans un wagon ? Combien de 
voyageurs assis la S.N.C.F. 
doit-elle transporter ? Combien 
y-a-t-il de places assises dans un 
compartiment ? Combien de 
wagons seront nécessaires au 
transport de 1056 personnes ? 
Comme vous pouvez le consta- 
ter, ce type de questions oblige 
l'élève à avoir tout d'abord une 
bonne compréhension de 
l'énoncé pour ensuite parvenir 
dier d'une part les opérations et 
mesures puis les proportions et 
la géométrie. 

Il nous est également proposé de 
gérer un bloc-notes pouvant 
contenir des pages de 15 lignes 
de 40 caractères. Cette option 
permet d'apprendre à créer tout 
d'abord puis à gérer de façon 
logique des informations ; elle 
constitue simplement une pa- 
renthèse par rapport aux autres 
sujets traités dans ce logiciel. 
Cette préparation à la 6 e couvre 
le programme de CM2 de façon 
très complète et permet à l'élève 
(avec les exercices non corrigés) 
de savoir véritablement où il en 
est. Pour ce qui est de la réali- 
sation technique, nous trouvons 
qu'il n'a pas été fait de grandes 
recherches de présentation qui 
rendraient le travail plus 
attrayant d'une part et que les 
temps de lecture et d'affichage 
de chaque exercice sont assez 
longs d'autre part. Ces détails 
étant cités, il faut savoir que ce 
logiciel sera très utile au jeune 
à condition qu'un adulte accep- 
te d'être disponible de temps à 
autre* 
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LA DECOUVERTE 
DE LA TERRE 



Coktei Vision 




e nouveau logiciel se 
situe dans le cadre de 
la série Sciences et Vie 
éditée par Coktei Vision ; il 
s'agit, cette fois, de découvrir la 
géologie, une science ayant pour 
objet l'étude de la terre, des 
matériaux qui la constituent 
ainsi que de transformations 
actuelles et passées. Cette 
découverte de la Terre va s'ef- 
fectuer en deux temps : tout 
d'abord, nous allons nous ren- 
dre en France afin d'étudier les 
différentes roches qui la compo- 



sent et obtenir ainsi des galons 
de géologue ; ensuite, lorsque 
nous aurons suffisamment de 
galons, nous pourrons partir 
pour effectuer des missions 
dans le monde. 
Dans notre pays, huit types de 
roches différents peuvent faire 
l'objet d'études ; ce sont les 
argiles, le granit, les sables et 
grès, la craie, les sables et la 
craie de la région parisienne, les 
roches métamorphiques. Pour 
commencer, choisissons (tout à 
fait au hasard) une roche qui 
nous est chère : le granit. Nous 
apprenons bien sûr qu'il se 
trouve sur le sol breton, qu'il est 
formé à partir du magma et que 
ses minéraux sont tous compo- 
sés de silicium ; en effet, le gra- 
nit se compose de quartz, de 
feldspath et de mica. Par ail- 
leurs, le granit est rugueux au 
toucher, n'est ni friable ni 
poreux et ses cristaux sont visi- 
bles à l'œil nu. Enfin, le granit, 
qui est une roche éruptive de 
structure cristalline, peut s'alté- 
rer et donner alors naissance à 
l'arène granitique. Si cette des- 
cription du granit (qui n'est en 
résumé des principales notions 
que vous découvrez à l'écran 
par le texte et les images) vous 




a appris quelque chose, vous 
commencez à comprendre l'in- 
térêt de ce type de logiciel. De 
plus, tout au long de l'étude de 
la roche, des questions sont 
posées ce qui permet d'obtenir 
une note sur 20 à la fin de 
l'étude. Cette note s'avère très 
importante car c'est elle qui 
nous permet d'obtenir ou non 
une roche dans notre collec- 
tion... Et il faut savoir que pour 
être autorisé à découvrir la 



sur le grand Rift qui s'étend sur 
2400 km entre la Mer Rouge et 
la Tanzanie et où se déroule une 
intense activité géologique. 
Cette étude nous permet de 
découvrir le mécanisme de la 
dérive des continents. Enfin, 
pour terminer, nous faisons un 
petit tour au pied de l'Everest, 
plus haut sommet de la chaîne 
de l'Himalaya afin de découvrir 
comment s'effectue la forma- 
tion des montagnes. 




seconde partie du logiciel, il faut 
avoir dans sa collection 6 des 8 
roches proposées ! Ce qui nous 
oblige à faire une étude sérieuse 

de cette première partie. 
Lorsque nous avons enfin nos 
galons de géologue averti ; nous 
sommes autorisés à partir pour 
l'une des quatre missions pro- 
posées. Tout d'abord, nous par- 
tons pour la Californie où San 
Francisco et Los Angeles sont 
sur des zones à haut risque ; ce 
qui nous amène à faire une 
étude des tremblements de terre 
et à démonter ainsi le méca- 
nisme des séismes. Le voyage 
suivant nous emmène en Sicile, 
tout près du Stromboli pour 
l'étude du mécanisme volcani- 
que ; puis nous nous rendons 



"A la découverte de la Terre" 
permet d'acquérir de manière 
intéressante toutes les notions 
essentielles de géologie, notions 
que chacun devrait connaître. Il 
y a un bon partage des explica- 
tions, des schémas (qui sont 
clairs sans répondre toutefois à 
une qualité extraordinaire de 
graphisme) et des questions per- 
mettant de vérifier l'assimila- 
tion des connaissances et la pro- 
gression de l'utilisateur. Somme 
toute, un bon outil de révision 
ou de découverte car ce logiciel 
couvre le programme de 4ème 
et 3ème et peut s'adresser à 
toute personne n'étant pas spé- 
cialisée dans le domaine de la 
géologie qui voudrait en savoir 
un peu plus» 
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MATRICES DE SEUIL ET 
PSEUDO GRIS 

HT 

n disons le point. Après la création de l'image- 
JL énigme et la saisie des petits programmes de 
démonstration, vous avez certainement fait quel- 
ques tests pour voir l'effet de prétraitement sur l'énigme. 
Malgré cela, vous n'êtes pas satisfait car les résultats ne 
sont pas évidents et "ne sautent pas aux. yeux". C'est nor- 
mal. Les niveaux de gris de notre image sont représentés 
par des chiffres ; or ïes chiffres, à quelques détails près, 
ont la même densité des points de l'encre. Comme vous 
le savez, chaque caractère occupe à l'écran une matrice 
de 8x8 points. Prenons l'exemple du niveau le plus clair, 
représenté par le chiffre et du niveau le plus foncé, repré- 
senté par le chiffre 9. Le zéro est composé de 33 points 
de couleurs d'encre et le neuf, de 27 : l'écart est faible. 
Le huit de 28, le six de 27, etc. Seule la forme différente 
de chaque chiffre nous permet d'apercevoir les régions. 
C'est insuffisant et trompeur, il est impossible d'ordonner 
correctement les niveaux de gris. Pour améliorer la lec- 
ture, nous transformerons les chiffres en niveaux de gris 
correspondants. Ceci pourrait être fait par le remplace- 
ment de chaque chiffre par la couleur appropriée et l'af- 
fichage à l'écran monochrome. Mais que faire si nous ne 
possédons que l'écran couleur ? Nous utiliserons de pré- 
férence les trames binaires, comme dans l'imprimerie, où 
un point peut être soit éteint, soit allumé. Ce sera pour 
nous l'occasion de faire la connaissance des MATRICES 
DE SEUIL qui permettent d'obtenir une répartition régu- 
lière des points allumés ou éteints, en fonction de la posi- 
tion qu'ils occupent dans la matrice et du niveau de gris 
de la région considérée. 



Figure 10 



î 




La matrice de seuil de base est une matrice 2x2. Elle se 
présente de la manière suivante : 

! 02 : 
: 31 i 

En prenant comme seuil successivement les valeurs de cha- 
que élément de cette matrice, nous obtenons les points allu- 
més disposés de la manière suivante : 



Les conditions successives étant : 
= >4;=>3,= >2;=>1 ;=>0 
ou <0 ; <1 ; <2 ; <3 ; <4 

Une matrice de quatre éléments peut donc ordonner les 
trames de cinq niveaux de gris. Prenons le cas du niveau 
2. Nous obtenons l'image du centre. La matrice 2x2 est, 
bien entendu, insuffisante. 

On peut rencontrer des images ayant 256 niveaux de gris, 
ou plus. Il faut donc utiliser les matrices de taille conve- 
nable. Dans notre cas, les caractères occupant une matrice 
8x8, cette dimension serait la bonne s'il n'y avait pas un 
petit problème : l'îmage-énigme ne comporte pas neuf 
mais dix niveaux de gris, soit un de trop pour une matrice 
de seuil de 8x8 points. Voyons tout d abord comment 
obtenir une matrice de seuifde taille supérieure à 2x2. 
La simple logique veut que ce soit une matrice de nombre 
de colonnes et de rangs deux fois plus grands, soit une 
matrice 4x4, ayant quatre fois plus d'éléments que la 
matrice de base. Le passage à cette matrice se fait de la 
manière suivante . 

On divise la nouvelle matrice en quatre quadrants, cha- 
cun de taille de la matrice de base. Les éléments du qua- 




■énigme en pseudo gris. 



Image-énigme inversée par recadrage de 
l'histogramme entre et 9. 
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drant supérieur gauche sont obtenus en multipliant les élé- 
ments de la matrice de base par la différence de taille., 
en l'occurrence par quatre. On obtient ainsi : 




! 0x4 2x4! 
!3x4 1x4 1 



= : 12 04: 



Les éléments de trois autres quadrants sont obtenus en 
ajoutant aux éléments du premier, occupant la même place 
dans le quadrant, l'élément occupant dans la matrice de 
base la place du quadrant en cours dans la nouvelle 
matrice : 

:o® ©s 00+02 08+02: : 00 08 02 101 
: 12 04 12+02 04+02: : 12 04 14 06: 

!00+03 08+03 00+01 08+01! = 103 11 01 09! 
112+03 04+03 12+01 04+011 115 07 13 05! 

Pour les matrices de tailles encore plus grandes / le prin- 
cipe de calcul des éléments est le même. 

Revenons maintenant à notre problème. La matrice 4x4 
peut représenter 4x4 +1 = 17 niveaux de gris, ce qui est 
plus qu'il n'en faut dans notre cas. Toutefois, la matrice 
d'un caractère comportant 8x8 = 64 points, il faudra répé- 
ter l'opération 64/ 1 6 = 8 fois. Il serait plus pratique d'uti- 
liser la matrice de seuil 8x8. Les lignes data du listing n° 
4 comportent ses éléments. La division du nombre de ces 
éléments par le nombre de niveaux de gris moins un 
(64/9 = 6.4) ne donne pas un entier. La trame obtenue ne 
sera donc pas parfaite, mais les défauts seront insigni- 
fiants. Comme d'habitude, tapez le programme du listing 
n° 4 et sauvegardez-le sous le nom "GRIS". Il pourra 
être utilisé avant et après chaque traitement de l'image 
et ainsi vous pourrez juger avec plus de précision les résul- 
tats de chaque opération. 

Lesfiguresn 10a 14 représentent, dans l'ordre respec- 
tif l'image-énigme et son inverse obtenue par recadrage 
de l'histogramme, image-énigme après l'égalisation par 
la première méthode et la succession de la deuxième 
méthode, jusqu'à la binarisation. La figure n° 9 repré- 
sente l'image-énigme inversée. 



Eh oui, le voile est maintenant complètement levé. L'image- 
énigme représentait tout simplement le nom de notre jour- 
nal préféré. Mais attention, ce n'est pas une raison pour 
faiblir à mi-chemin. Car croyez-moi, il reste encore beau- 
coup à découvrir, le prétraitement n'étant qu'une étape. 



Figure 12 



Image-énigme après recadrage de l'histogramme entre 6 et 3. 



Figure 13 




Image-énigme égalisée. 







4270 


isting 4 




4280 
4290 
4300 


4000 'PSEUDO GRIS et MATRICE DE SEUIL "BRIS" 


>XS 


4310 


4010 ' 


>XH 


4320 


4020 MODE 1:WIND0W 1.40,23,23: WINDOW #1,1,40,1,22 


m 


4330 


4025 WINDOW «2,1, 40,24,24: WINDDW#3, 1,40,25, 25 


>MJ 


4340 


4030 INPUT"nom de l'image? ",n*:L0AD n*+".SCR" 


>UW 


4350 


4040 m a(8,8i,b(B) 


>MU 


4360 


4050 G0SUB 4270 :CLS 


>NC 


4370 


4060 ' 


>VC 


4380 


4070 ' 


>YD 


4390 


4080 FOR i=l T0 21 : L0CATE 1,1:PRINT i, 


>EL 


4400 


4090 FOR j=l TO 40:L0CATE 10,1:PRINT j 


>EZ 


4420 


4100 LOCATEttl, j, i: : 58=ASC (CQPVCHR* (#1 i ) 


>JP 


4430 


4110 PRINT #l,CHR*((s8-48) +200) 


>VK 


4440 


4120 ' 


W 


4450 


4130 ' 


>YA 


4460 


4240 NEH j 


>W6 




4250 NEXT i 


>WB 


4470 


4255 CLS:CLS#2:CLS#3:PRINT#2,"pas de sauvegarde" 


>AC 


4480 


4260 END 


>ZA 


4490 



PRINT"niveaux de pseudo gris" .>MV 

FOR i=l TQ 8:F0R i=l T0 8:READ aii, j) >GV 

NEXT j,i:PRINT #3," "; >VB 

'MATRICE DE SEUIL >XK 

DATA 00,32,08,40,02,34,10,42 >YQ 

DATA 48,16,56,24,50,18,58,26 >¥H 

DATA 12,44,04,36, 14, 46,06,38 >VT 

DATA 60,28,52,20,62,30,54,22 >YL 

DATA 03,35,11,43,01,33,09,41 >YD 

DATA 51,19,59,27,49,17,57,25 >¥W 

DATA 15,47,07,39,13,45,05,37 >YF 

DATA 63,31,55,23,61,29,53,21 >YZ 

SYMBOL AFTER 200 >PY 

FOR k=0 T0 9:»=200+k >RC 

seuil=k*64/9 >MC 

FOR i=l T0 8:b(i)=0:F0R j=l T0 8 >CK 

IF afi.iKsaul THEN b(ii=b(i)+2"t8-j) >MD 

NEXT j,i >NC 

SYMBOL »,b(l),b(2î,b(3),b<4!,b(5),b(6),b!7),b(8) >WK 



PRINT *2,k;:PRINT #3,CHR*(m)+" 
NEXT k 



>WJ 

:>ga# 
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Image-énigme binarisée par trois égalisations N/2. 



METHODES LOCALES 



GENERALITES SUR LA TRANSFORMATION 
SPATIALE mBmmm^ÊKmmmmmmm^^^^ 

Dans les méthodes étudiées, les transformations d'un point 
étaient indépendantes des valeurs des points qui l'entou- 
rent. Compte tenu de la propriété de similitude entre les 
points voisins que possède chaque image, nommée RE- 
DONDANCE SPATIALE, on peut utiliser la TRANSFOR- 
MATION SPATIALE. La transformation spatiale tiendra 
compte du seul voisinage immédiat du point traité. La 
représentation de cet ENSEMBLE ELEMENTAIRE de trai- 
tement est celle du voisinage de la grille carrée de la figure 
n° 1 . Ce moyen de traitement se nomme FILTRE SPATIAL. 
Pourquoi filtre ? Tout simplement parce qu'il sert princi- 
palement à éliminer les "bruits" contenus dans l'image, 
en renforçant aussi le contraste entre les niveaux de gris 
par le REHAUSSEMENT DES FRONTS. Les filtres peu- 
vent être LINEAIRES ou NON LINEAIRES, INVA- 
RIANTS ou non. D'autre part, un autre type de classe- 
ment peut être fait en fonction du nombre de points 
utilisés : 

- HUIT-VOISINAGE + POINT TRAITE - 9 points 

- HUIT-VOISINAGE SEUL - 8 points 

- QUATRE-VOISINAGE + POINT TRAITE - 5 points 

- QUATRE-VOISINAGE SEUL - 4 points 

En réalité, nous agissons toujours sur l'ensemble des points 
du voisinage immédiat, mais au lieu de multiplier la valeur 
de chaque point par le facteur un, les valeurs des points 
dont nous ne voulons pas tenir compte soiit rendues nul- 
les par le facteur zéro. C'est ainsi que nous arrivons à la 
notion de ('OPERATEUR. L'opérateur est représenté par 
une matrice 3x3 où chaque élément correspond à un des 
neuf points du voisinage immédiat, le point traité étant, 
bien entendu, au centre. L'opérateur donnant la même 
chance à chaque point est une MATRICE CONSTANTE 
ou si vous préférez, un TABLEAU rempli de "1". Les opé- 
rateurs des quatre cas cités seront donc les suivants : 







lllll 






; 111 : 


H= 


1/9 


: ni ; 
: m : 


; H= 


1/8 


: 101: 

: 1 1 1 : 






:01e: 






1010: 


H = 


-1/5 


lllll 
: ©le 1 


; H= 


1/4 


: 101: 
1010: 



î 



mine le type du filtre spatial, indépendamment du classe- 
ment selon les méthodes mathématiques vues plus haut. 

On peut donc dire que le type du filtre spatial dépend de 
l'OPERATEUR DE CORRÉLATION. Le filtre spatial qui 
sert à accroître le contraste utilise les opérateurs de DIF- 
FERENTIATION, Ces opérateurs font la différence entre 
le point traité et ses voisins. Voici un opérateur de 
différentiation : 



hi=;-i 5 -1: 
: -1 0: 

On voit que cet opérateur fait aussi la différence entre les 
voisins directs et les voisins indirects. Il s'agit donc d'un 
quatre-voisinage. Si l'on désire tenir compte de tous les 
voisins, le même opérateur devient : 





-1 


-1 


-1 ; 




-1 


s 


-1; 




-1 


-1 


-11 



ou encore H3= 



-2 II 

5 -2 1 

-2 H 



En comparant les trois opérateurs nous pouvons consta- 
ter plusieurs choses : 

- toutes les combinaisons sont possibles ; 

- la somme des éléments est toujours égale à un ; 

- les opérateurs sont invariants par rotation ou par trans- 
formation omnidirectionnelle. 

Pour simplifier, disons qu'ils agissent de la même manière 
dans le sens vertical et dans le sens horizontal de l'image. 
Ces opérateurs sont donc ISOTROPES. Ces opérateurs 
avantagent les FRONTS orthogonaux. Les opérateurs 
ANISOTROPES peuvent par contre déceler la présence 
des fronts de direction quelconque, celle-ci étant fonction 
de l'opérateur. Ainsi les fronts à 45, 135, 225 ou 315 
degrés peuvent être décelés par les opérateurs : 



Figure 15 
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Le rôle de l'opérateur est en réalité beaucoup plus com- 
plexe. Par sa nature et par son contenu, l'opérateur déter- 



Image-énigme après filtrage par filtre médian. 
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isting 5 




5000 

5010 

5020 

5030 

5040 

5050 

5040 

5070 

5080 

5090 

5100 

5110 

5120 

5130 



5140 

5150 

5160 

O 

5170 

5180 

5190 
5200 
5210 

5220 

5230 

5240 



5250 



'FILTRE HEDIAN "MEDIAN" 

MODE 1: HINDOU l,40,23,25:NIND0Utl, 1,40,1, 22 
INPUT"nom de l'image? ";n»:LOAD n*+".SCR" 
DIM ec(22,40),a(10),b(10) 



k=0: 1=0 

FOR i»l TO 21:L0CATE l.liPRINT i, 
FOR j=l TO 40 
LOCATE 10,1:PRINT j 
IF i=l THEN 5170 
IF j=l THEN 5140 
LOCATEKl, j-1, i-l:s8=flSCIC0PYCHR$(#l) ) :60SUB 552 

L0CATE#l,j,i-l;58=ASC(C0PYCHR*(#l)):G05UB 5520 

IF j=40 THEN 5170 
L0MTE#l,j+l,i-l:58=ASC(CQPYCHR*(#l))i6GSUB 552 

IF j»l THEN 5190 

LOCATEitl , j-1 , i : s8=ASC (COPYCHR* ( tl ) ) : GOSUB 5520 

LOCATE» 1 , j , i : s8=ASC (COPYCHR$ ( # 1 ) ) : GOSUB 5520 

IF J=40 THEN 5220 

L0CATE#1 , j+1 , i : 5 8=ASC (COPVCHR* (#11): GOSUB 5520 

IF i=21 THEN 5280 
IF j=l THEN 5250 
L0CATE#1 , j-1 , i+1 : sB=ASC (COPYCHRt (t 1 ) ) : GOSUB 552 



>XH 
>XJ 
>8U 
>UN 

>m 

>YC 
>YD 
>BE 
>E« 
>LK 
>TZ 
>NR 
>NQ 

m 



>YF 

m 

>PK 
>XF 

>PR 

m 
m 



LOCATEftl , j , i+1 : 5B=ASC (COPYCHR* (#1 ) ) : GOSUB 5520 >YB 



5260 IF j=40 THEN 52B0 >PY 

5270 LOCATE#l,j+l,i+l:sB=ASC(C0PYCHR*(#l)):GOSUB 552 >AE 



5280 s8=0:k=-INT(-(9-k)/2) m 

5290 FOR wfO TO 9: l=l+b (ns) :b(ro)=0: IF sBOO THEN 531 >VP 



5300 IF l>k THEN 58=» >PY 

5310 NEXT ni >XJ 

5320 ec(i, j)=-INT(-5H)+48:k=Û:l=0:IF ec(i,j)<48 THEN >KB 

ec(i,j)=48 
5330 IF ec(i,j)>57 THEN >JG 

ec(i,j)=57 

5340 NEXT j >hj 

5350 NEXT i:CLS#l >«q 

5360 FOR i=l TD 21:a$="" >QX 
5370 FOR j=l TO 40:a*=a*+CHR«(ec(i, j)) :a(ec(i,j)-48)= >QX 
a(ec(i,jl-4B)+l 

5380 NEXT j:PRINTtl,al; >TT 

5390 NEXT i >hh 

5400 aS:SAvE"MAGE.SCR",b,S(C000 1 ï<4000 >GS 

5410 «ODE lsk=0 m 

5420 PRINT TABI15); "histogramme" >FY 

5430 PRINT TfiB(15) ; "♦**********": PRINT:PRINT >ND 

5440 FOR i=0 TO 9: IF a(i)>[; THEN k=a(i) >EP 

5450 NEXT i:k=(30/k) >pd 

5460 FOR i=0 TO 9:PRINT i ;a (i) ; TAE ( 10) ; >GA 

5470 FOR j=l TO -INT(-k»a(i)) >WT 

5480 PRINT CHR*(143); >QR 

5490 NEXT j: PRINT >NV 

5500 NEXT i >WA 

5510 END >yk 

5520 b(5B-4Bi=b(5B-48i+rclas5ement instantané >RH 

5530 ' >yp 

5540 RETURN >FH # 



11 11 
1 l-i: 
1-1-1! 



1-1-1! 
1 l-i: 
111! 



-1-1 1: 




r 1 1 


-111: 


H= 


-1 1 1 


111: 




-î-i 1 



Ici, la somme des éléments est supérieure à un. Les fronts 
seront donc renforcés. Voici maintenant une série d'opé- 
rateurs privilégiant un sens de développement des 
régions : 
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1 0: 




001: 


H=: 


1 0: 


; H=: 


010: 


• 


e 1 0; 




1 0: 




000; 




1 


H= 


111: 


: H= 


1 0: 




000: 




1 



: 1 


1 1 : 




1 l-l: 


Hn=: 1- 


1 : 


; Ho= 


l-l-i: 


:-i- 


1-1: 




1 l-i: 


:-i- 


1-1: 




-1 1 i: 


Hs=: 1- 
; 1 


1 : 

1 i: 


; He = 


-1-1 i: 
-lli: 




ou 


encore : 




:-i-i 


1: 


; 


l-l-i: 


Hse=:-1- 

; 1 1 


1: 
1: 


; Hso= 


1-1-1! 
lli: 


: 1 


1 : 




lli: 


Hno=! 1- 


-1: 


i Hne= 


-1-1 i: 


: 1- 


-1 : 




-1-1 i: 



Une autre série d'opérateurs anisotropes DIRECTION- 
NELS sera très utile si l'on désire obtenir le maximum dans 
la direction du GRADIEN MAXIMAL au point considéré : 



Dans les nominations "n, s, e, o" signifient, bien entendu, 
nord, sud, est et ouest. Ainsi, si l'on considère un 
voisinage : 

: 2: 

f= : 2 2: 

: 2 2 2: 
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ayant un front so/ne et la direction de variation maximale 
du niveau du gris sud-est, les OPERATEURS DIRECTION- 
NEL5 donneront les valeurs suivantes : 

H S = +4 ; Hn = -4 ; Hse=+8 ; etc. 

Après ce tour général, nous allons étudier en détail quel- 
ques filtres, mais auparavant voyons comment est résolu 
ie cas des points situés sur le bord de l'image. Il est évi- 
dent que ces points ne possèdent que trois voisins, pour 
le point d'angle, ou tout au plus cinq voisins, pour le point 
d'un bord. Deux manières sont possibles : 

- prendre les voisins manquants par symétries par rap- 
port aux bords ; 

- considérer les voisins manquants comme nuls. 

Cette dernière hypothèse est retenue pour tous nos pro- 
grammes de démonstration. 

FILTRE MOYEN - LISSAGE JJ MMMl— 

Sans le savoir, vous avez déjà rencontré le filtre moyen 
lors de la création de l'image-énigme. Le programme 
"CRENIG" comporte la routine de MOYENNAGE arith- 
métique sur huit voisins plus point traité. La moyenne arith- 
métique étant une loi linéaire, le filtre moyen est un filtre 
linéaire. Ce filtre atténue le bruit, mais en même temps, 
ïi adoucit l'image en atténuant les hautes fréquences (les 
hauts niveaux de gris). Ce filtre brouille l'image s'il est 
mal utilisé. C'était justement le but de son utilisation dans 
ce programme. Nous avons utilisé l'opérateur isotrope 
"identité". Mais le moyennage peut être fait en pondé- 
rant les points. On peut donc utiliser les opérateurs ani- 
îotropes et non linéaires, qui détecteront les fronts avant 
le lissage. On peut aussi utiliser les filtres à deux passes, 
la première pour le lissage et la deuxième pour le rehaus- 
sement directionnel. 




FILTRE MEDIAN I 



Le filtre médian est le filtre non linéaire le plus fréquem- 
ment utilisé. Là aussi, nous pouvons utiliser n'importe quel 
opérateur, alors que la valeur donnée au point central 
ne sera plus la moyenne arithmétique, mais la valeur occu- 
pant la position centrale de la suite ordonnée des valeurs 
du voisinage pris en compte. Le listing n° 5 correspond 
au filtre médian tenant compte des huit voisins plus le point 
traité. Ce filtre supprimera les points isolés de bruit et amé- 
liorera les fronts, mais en même temps, il rognera les 
angles sortants et comblera les angles rentrants. Il arron- 
dira, en quelque sorte, les angles. Pour cette raison, il est 
préférable d'utiliser une forme d'opérateur en croix, par 
exemple les voisins directs et le point traité. Saisissez ce 
programme et sauvegardez-le sous le nom "MEDIAN". 
La figure n° 15 représente l'image-énigme filtrée par le 
filtre médian. 

On peut remplacer la valeur médiane par la valeur située 
I.. -dessous ou au-dessus de celle-ci dans la suite ordon- 
née. J'utilise, pour ma part, la valeur située au MILIEU 
DES EXTREMES (min et max) de la suite ordonnée. Le pro- 
gramme du listing n° 6 correspond à ce type de filtre. 
Saisissez-le et sauvegardez-le sous le nom ' MILIEU". La 
figure n° 16 représente l'image-énigme filtrée par le fil- 
tre milieu des extrêmes. 

Afin de pouvoir utiliser n'importe lequel des opérateurs 
cités, le programme du listing n° 7 vous permet d'intro- 
duire directement les coefficients de la matrice. Ce pro- 
gramme sera sauvegardé sous le nom "OPERA". 
Le domaine des filtres est très vaste. Il faudrait un livre 
entier pour les décrire tous en détail, ce qui dépasserait 
de loin le cadre de l'initiation. Il est préférable d'appren- 
dre à utiliser convenablement un ou deux filtres. Testez 
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Figure 16 
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Image-énigme après /titrage par filtre milieu. 



Figure 17 
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Image-énigme après filtrage par filtre directionnel. 

sur l'image-énigme l'effet du filtre médian et du filtre 
milieu, puis, en utilisant le programme "OPERA", testez 
les différents opérateurs, toujours sur l'image-énigme. Une 
seule précaution : la valeur future du niveau de gris du 
point traité ne doit jamais sortir de l'intervalle 0, 9. Sinon, 
le programme ne donnera pas les résultats escomptés et 
risque même tout simplement la panne. La figure n° 17 
représente l'image-énigme après moyennage avec l'opé- 
rateur : 



H = 



Cet exemple montre bien qu'en utilisant un opérateur 
approprié, on peut modifier I image et lui donner le carac- 
tère souhaité. 
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6000 'FILTRE MILIEU DES EXTREMES "MILIEU" 

6010 ' 

6020 MODE 1:HINDGU 1, 40, 23,25: WINDQW#1 , 1,40,1, 22 

6030 INPUT"no« de l'image? "jntiLOAD n$+".SCR" 

6040 DIM ec(22,40),a(10) 

6050 ' 

6060 ' 

6070 ma=0:mi=100 

6080 FOR i=l TO 21:LDCATE 1,1:PRINT i, 

6090 FOR j=l TO 40 

6100 LOCATE 10,1:PRINT j 

IF i=l THEN 6170 

IF j=l THEN 6140 

LOCflTE*!, j-l,i-l:sB=ASC(C0PYCHR*(tl)):G0SUB 652 



6110 

6120 

6130 



6140 

6150 

6160 



6170 

6180 



LOCATEtl , i , i-1 : s8=ASC (COPYCHR* (*1 ) ) : 60SUB 6520 



IF j=40 THEN 6170 >P« 

L0CATE#1 , j+1 , i-1 : sB=ASC (CDPYCHR* (#1 ) ) : GOSUB 652 >AG 

IF j=l THEN 6190 >ND 

LOCftTEHl , j-1 , i : s8=ASC (COPYCHR* t#l ) ) : GOSUB 6520 >YH 



6190 LOCATEtl, j , i : sB=flSC (CBPYCHR* (#1 ) ) : GOSUB 6520 >WK 
6200 IF j=40 THEN 6220 >PM 

6210 LOCflTE»! , j+ 1 , i : s8=ASC < COPYCHRt (#1 ) ) : GOSUB 6520 >XH 



6220 

6230 

6240 



6250 

6260 

6270 



62B0 

6290 

6300 

6310 

6320 

6330 

6340 



IF i=21 THEN 6280 >PU 

IF j=l THEN 6250 )NX 

LOCATEttl, o-l , i+1 : s8=flSC(C0PYCHR* (#1 ) ) : GOSUB 652 >AF 

LOCATEtl, j,i+l:s8=ASC(C0PYCHR$(tl)):G0SUB 6520 >YD 

IF j=40 THEN 6280 >PA 

LOCATEtl, j+1, i+l:58=ASC(CDPYCHR$(tl)):G0SUB 652 >flG 



ec(i,j)=INT((»a+mi)/2) 

ma=0 

mi=100 



IF ec(i,j)<48 THEN ec(i,j)=4B 
IF ec(i,j)>57 THEN ec(i,j)=57 
NEXT j 

6350 NEXT i:CLStl 

6360 FOR i=l TO 21:a»="" 



>NZ 
>FC 
>UG 
>YC 
>BH 
>BZ 
>«K 
>MR 
>0Y 



6370 FOR j=l TO 40:at=a*+CHRI(ec(i, j) ):a(ec(i, j)-48)= >QY 
a(ec(i,j)-48)+l 

6380 NEXT j:PRINTtl,a$; >TU 

6390 NEXT i >WJ 

6400 CLS:SAVE"IMAGE.SCR",b, (£000,1.4000 >GH 

6410 MODE l:k=0 >XC 

6420 PRINT TAB(15);"hystograime" >FR 

6430 PRINT TAB(15);"»*««*««t»:PRINT:PRINT >ME 

6440 FOR i=0 TO 9: IF a(i)>k THEN k=a(i) >EQ ( 



6450 NEXT i:k=(30/k) 

6460 FOR i=0 TO 9: PRINT i;a(i);TAB(10)i 

6470 FOR j=l TO -INT(-k*a(i) ) 

6480 PRINT CHR$(143); 

6490 NEXT jsPRINT 

6500 NEXT i 

6510 END 

6520 IF s8<mi THEN ui=sB 

6530 IF s8>ma THEN »a=s8 

6540 RETURN 



>PE 

>GB 

m 

>QT 

>nh 

>WB 

>ZA 
>TE 
>RZ 
>FJ* 
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7000 'FILTRE MOYEN AVEC OPERATEUR "OPERA" >XK 

7010 ' >™ 

7020 MODE i:MNDON 1,40,23,25:WIND0W#1, 1,40,1, 22 >QN 

7030 INPUT"nMi de l'image? ";n*:LDAD nt+".SCR":PRINT"DE >M6 

TERMINEZ L'OPERATEUR" 

7040 DIM ec (22, 40): FOR i=l TO 3: FOR j=l TO î >HY 

7050 PRINT"P0SITION ,, ;ij",";ji:INPUT h(i,j):IF h(i,j)= >PT 

THEN n=n+l 

7060 NEXT j,i:CLS >* 

7070 s8=0:k=0:n=0 >LX 

7080 FOR i=l TO 21:L0CATE 1,1:PRINT i, >EP 

7090 FOR j=l TO 40 >L" 

7100 LOCATE 10,1:PRINT j >TB 

7110' IF i=l THEN k=k+3:60TO 1170 >ZM 

7120 IF j=l THEN k=k+l:GOTO 1140 >ZJ 

7130 LDCATEtl,j-l,i-l:s8=s8+ASC(C0PYCHR$(tl))*h(l,l) >TB 

:n=n-(h(l,l)=0) 

7135 n=n+(h(l,lK0)*h(l,l)*2+(Ml,l)>0)«(h(l,l)-l> >RE 

7140 LOCATEtlJ,i-l :s8=5B+ASC(C0PYCHR$(tl))*ti(l,2): >QU 

n=n- (h (1,21=0) 

7145 n=n+(Ml,2K0)*h(l,2)*2+(h(l,2)>0)*(h(l,2)-l> >RK 

7150 IF j=40 THEN k=k+l:6OT0 1170 >AY 

7160 LOCATEtl, j+1, i-1 :s8=5fl+ASC (COPYCHR* (#1) )»hU, 3) >TG 

:n=n-(h(l,3>=0> 

7165 n=n+(h(l,3X0)*h(l,3)*2+(h(l,3)>0)*(h(l,3)-l) >RR 

7170 IF j=l THEN k=k+l:GOTO 1190 >ZV 

7180 LOCATEtl, j-l,i!5B=s8+ASC(C0PYCHR»(»l))«h(2,l):n >PG 
=n- (h (2, 11=0) 
7185 n=n+(h(2,l)<0)«h(2,l)«2+(h(2,l)>0)*(h(2,l)-l) >RP 

7190 LOCATEtl, j,i:58=58+ASC(C0PYCHR*(tl))*h(2,2):n=n >ND 

-(h(2,2)=0) 

7195 n=n+(h(2,2K0)«h(2,2)*2+Ih(2,2)>0)*(ti<2,2)-l) >RV 

7200 IF j=40 THEN k=k+l:60T0 1220 >AP 

7210 LOCATEtl, j+1, i:58=58+ASC(C0PYCHR$(tl))*h(2,3):n >PC 

=n-(h(2,3)=0> 

7215 n=n+(h(2,3K0)*h(2,3)*2+(h(2,3)>0)*(h(2,3)-l) >RR 

7220 IF i=21 THEN k=k+3:G0T0 1280 >AY 

7230 IF j=l THEN k=k+l:GOTO 1250 >ZN 

7240 LOCATEtl, j-l,i+l:sB=58+ASC(C0PYCHRt(tl))»h(3,l) >TF 
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:n=n-<h(3,I)=0) 

7245 n=n+(h(3, l)<0)*h(3, l)*2+(h(3,l)>0)*<h<3,'l)-l) >RQ 

7250 L0CAT£#1 , j , i+1 : s8=sB+ASC (CDPYCHRt (#1 ) ) *h (3, 2) : n >PG 

=n-(h(3,2)=0) 

7255 n=n+(h(3,2X0)«h(3,2)»2+(h(3,2)>0)*(h(3,2)-l) >RH 

7260 IF MO THEN k=k+l:BOTD 1280 >AC 

7270 LaCflTE#l,j+l,i+l:5B=sB+ftSC(C0PYCHR*(#l)Hti(3,3) >TL 

:n=n-(h(3,3)=0> 

7275 n=n+(h(3,3X0)*h(3,3)«2+(h(3,3)>0)*(h(3,3)-l) >RC 



7280 l=9-k-n 

7290 n=0 

7300 k=0 
7310 



>FA 
>XH 
>HG 
>YD 



7320 ec(i, j)=sS/l:s8=0:IF ec<i,j)<48 THEN ec(i,j)=48 >WG 

7330 IF ec(i,j)>57 THEN ecti, j)=57 >F2 

7340 NEXT } 

7350 NEXT i :CLS#1: A*=" " 

7340 FOR i= 1 TO 21 

7370 FOR j=l TO 40:a$=a*+CHR*(K(i, j)) 

7380 NEXT j:PRINT#l,a*; :a$="" 

7390 NEXT i 

74O0 CLS: SAVE" IMAGE. SCR" , b, &C000, 44000 

7510 END 



DITES-MOI 
, TOUT ' 




Vous avez des 
remarques, des 
suggestions ou des 
critiques à formuler 
concernant le con- 
tenu du présent 
numéro... 
Vous souhaitez 
voir traiter un sujet 
particulier dans un 
prochain numéro 
de la revue... 



L'équipe rédactionnelle de CPC est 
à votre écoute 24 heures sur 24, 
grâce à son serveur télématique. 
Composez le 3615, code d'accès 

MHZ, choix Messagerie, boîte CPC 
REDAC. 




DEBUGGER est fait pour 
celui qui programme en 
langage machine ou qui 
envisage de s'y lettre 
DEBUGGER c'est l 
*Un désasseibleur. 
*Un éditeur: 256 octets 
directement accessibles 
«Un relogeur qui permet 
de décaler un programme 
lans s' occuper ou presque des modi fications à faire 
tUn pas à pas permettant de visualiser, instruction 
•prés instruction ,1e déroulement de vos programmes 
(Ainsi que 19 autres fonctions. 



Vous désirez un 
loglc iel de DAO 
lui explo i te la 
total i té du CPC 
6128 " 
CRAPH-SET C'est 



i 1 le 



es * Un génér 
n laerographe 
aph iques ( rot 



DO" * Une sortie sur imprimai 

bre poste jusqu'au poster) * 

GRAPH-SET est simple d'emploi (i 




Des outils de des 
. . > * Des f onct ions 
n , copie, invers i oi 
rage * Une fonct 
te paramétrable 



nés , sous- 



us ) . 




DISCKHELP est ui 
mon iteur de dis- 
quette . I 1 permet 
1 ' accès d i rect è 
chaque octet d ' 
une d isquet te p.1 

icupérer un 
programme ei facs 
* Cacher, local i- 
ser un fichier 
ire ou rect i f iei 

sure et rapide. 



CI. ASSISTANT est un 
logiciel de dessin de 
c i rcuits lupr imès, 

* TA i 1 le GOO 540 mm 

* Simple, double i'ace 

* Z éch-e 1 les f Sort ie 
sur imprimante * Bi- 
bliothèque * Généra- 
teur de symbo 1 es * 2 




fichiers jusqu'À 80 K 
avec des fiches de 1 à 1997 caractères à affecter à 
un nombre de rubriques pouvant aller de 1 a 665 
G.F.R. c'est : recherche mu 1 1 i cr 1 téres , aucun ma: 



fi 



->~€ 
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PRESIDENTIELLES 



PRESIDEN 



10 ' PRESIDENTIELLES 

20 ' NOM DU PROSRAKME:PRE5IDEN 

30 ' O.TAILLEUX 1988 

40 ' ANNULLE BREAK+CTRL+SMFT+ESC 

50 POKE 1BDEE,1C9 

60 MODE 1:INK 0,5: BORDER 5: PAPER 0:CLS 

70 INK 1,25:PEN 1 

80 DATA 461,387,460,366,462,363,458,362,424,341 

90 DATA 423,336,429,335,422,330,412,330,396,335 

100 DATA 393,333,390,341,394,347,392,349,385,347 

110 DATA 376,350,374,349,377,336,382,32B,3B2,313 

120 DATA 385,307,376,307,375,312,372,312,367,308 

130 DATA 363,311,355,308,345,320,336,320,333,315 

140 DATA 328,315,326,312,323,315,308,313,304,310 



>LA 
>LB 
>LC 
_>LD 
>LT 
>FJ 
>SB 

m 

>MX 
>NQ 
>NL 
>NA 
>NZ 



Vous auriez dû réfléchir 
avant de vous lancer dans la 
course à l'Elysée. 
Il vous a fallu de nombreuses 
semaines pour réunir les 500 
signatures nécessaires à 
votre candidature. 
Malheureusement, vos efforts 
ont été réduits à néant car 
des terroristes se sont 
emparés des précieuses 
signatures. 

Etes-vous prêt à payer la 
rançon nécessaire pour peut- 
être accéder au pouvoir 
suprême ? 
Attention, ce jeu ne 
fonctionne que sur les CPC 
664 et 6728. 



O. TAILLEUX 




150 DATA 304,305,315,305,316,300,308,302,307,298 
160 DATA 312,299,315,295,306,295,306,293,314,282 
170 DATA 318,285,340,270,345,273,347,270,355,268 
180 DATA 353,262,358,259,370,259,365,257,362,255 
190 DATA 366,250,365,247,362,245,362,242,370,236 
200 DATA 375,225,387,222,385,217,387,207,362,202 
210 DATA 395,192,397,182,391,191,385,195,380,164 
220 DATA 385,162,379,160,373,127,365,117,372,113 
230 DATA 373,106,391,100,395,95,405,95,410,90 
240 DATA 425,92,428,95,445,87,456,86,454,83 
250 DATA 462,79,471,80,478,77,485,79,490,81 
260 DATA 496,77,490,85,491,105,506,110,516,117 
270 DATA 535,112,552,110,563,102,565,97,570,99 
280 DATA 573,97,578,101,588,104,588,107,585,109 
290 DATA 607,127,609,134,601,137,599,140,596,140 
300 DATA 590,152,595,158,595,165,584,175,569,182 
310 DATA 596, 187,586, 198, 593,206,587,213,5B7,220 
320 DATA 585,223,575,223,571,219,571,214,565,213 



>N¥ 

>NF 
>N6 
>NV 
>NA 
>NZ 
>NV 
>NX 
>KB 
>HA 
>HG 
>LK 
>LH 
>M6 
>NH 
>NG 
>NJ 
>NA 



32 
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330 DATA 568,222,56B,230, 577,237,578,244,588,253 >ND 
340 DATA 588,263,603,265,603,291,617,315,616,320 >NC 
350 DATA 603,322,598,326,592,323,585,326,580,325 >NN 
360 DATA 577,331,570,335,562,331,559,336,551,336 >NN 
370 DATA 544,344,540,345,535,351,536,361,533,359 >NJ 
380 DATA 530,353,525,351,519,353,519,360,516,365 >NS 
390 DATA 511,364,508,370,505,375,500,374,495,380 >NH 
400 DATA 487,382,482,393,461,387,611,120,615,120 >NZ 
410 DATA 616,85,610,63,606,61,602,68,596,70 >HB 
420 DATA 598,73,598,75,595,77,595,80,591,81 >JM 
430 DATA 593,97,590,97,595,106,609,111,611,120 >LP 
440 ' PAGE DE PRESENTATION >RJ 

450 «ODE 1: RESTORE 80:READ A,B:MOVE A,B:FOR 1=2 TO 163: >EC 
READ A.BiDRAW A,B,1:NEXT 

460 READ A,B:MOVE A,B-20:F0R 1=2 TO 17:READ A,B:DRAN A, >LY 
B-20,1:NEXT 
470 GOSUB 1330 
480 B05UB 1030 
490 GOSUB 710 
500 GOSUB 2000 

510 MOVE 0,0:DRAW 0,399:DRAW 639,399lDRAW 639,0:DRAW 0, 


520 REM 

530 REM MARSEILLAISE 
540 REM 

550 RESTORE 560 

540 DATA 213,0.25,213,0.75,213,0.25,159,1,159,1,142,1,1 
42,1,106,1.5,127,0.5,159,0.5,1,0.25,159,0.25,127,0.75,1 
59,0.25 
- 570 DATA 190,1.5,119,2,142,0.75,169,0.25,159,2,-1,1 
580 WHILE INKEY$="" 
590 READ A,B 
600 IF A=-l THEN 630 
610 SOUND 1,A,B*30,15:SOUND 1,1,10 
620 WEND 

630 ENV 3,1,15,5,1,-2,10,13,-1,20 
640 FOR i=159 TO 400 
650 SOUND 1,1,2,12,0,0,0 
660 SOUND 2,1+3,2,12,0,0,0 
670 NEXT i 

680 SOUND 1,2000,0,0,3,0,30 
690 SOUND 2,2050,0,0,3,0,25 
700 60TO 2200 
710 RESTORE 770 
720 READ A$,al,bl 
730 IF a$="F" THEN 980 
740 IF A$="P" THEN PLOT A1.B1 
750 IF A«="D n THEN DRAW 61,B1 
760 GOTO 720 

770 DATA P, 391, 269,0,387, 267,0,379, 267, D,367,259,D,355, 
257 

7B0 DATA D,357,255,D,367,253,D,379,253,D,383,251,D,395, 
249 

790 DATA D, 399, 251, D, 395, 255 

800 DATA P,383, 251, 0,379,239,0,387, 237, 0,399,233, D,401, 
225 
B10 DATA P, 379,239,0,381, 231, D,3B3, 233,0,385, 233,0,387, 



>AN 



225 

B20 DATA D, 384, 225, 0,383, 223, D, 385,215,0,391, 215,0,399, >AF 

217 

830 DATA 0,399, 221, D.401, 215,0,403,211, D,413,213 >ND 

840.DATA P,391,273,D,393,275,P,401, 269,0,402,271 >PC 

B50 DATA P,397,213,0,417, 195,0,467,231, D,464,271, 0,463, >ND 

279,D,461,287 

860 DATA 0,459, 289, D,431, 303,0,415, 303,D,403,295,D,392, >AL 

279 

B70 DATA P, 398, 291,0, 401, 293,D, 403,291, P,411, 291, D,415, >NA 

293,0,417,287 

880 DATA P,427,271,D, 431, 263,0,431, 255,D, 423,245,0,425, >MH 

239,0,425,235 

890 DATA D, 419,221, P.429, 225,0, 433, 223, D,435,239,D,443, >NE 

237,0,447,251 

900 DATA D,451, 247,0,461, 253,0,463, 263,0,455,271, 0,447, >AB 

263 

910 DATA P, 399, 207,0,383, 191,0,367, 175,0,343, 111, D,511, >AD 

111 

920 DATA 0,511, 143,0,507, 175,D,497, 191,0,465,231 >PA 

930 DATA 0,431, 175,0,403, 127,0,399, 159, D, 399, 207 >PP 

940 DATA P.399, 167,0,417, 195,D, 419, 161 >DQ 

950 DATA P, 401, 155, D.409, 167, D, 407,175, P, 419, 159,0,413, >ND 

167,0,419,175 

960 DATA P,447,295,D, 435, 253, 0,447, 263,P, 455, 251, 0,465, >AP 

241 

970 DATA F, 0,0 >KJ 

980 MOVE 383,175iFILL 1 >QF 

990 MOVE 415,175:FILL 1 >QC 

1000 MOVE 455,279:FILL 1 : MOVE 464,242:FILL 1 >KF 

1010 MOVE 367,127:FILL 1:M0VE 463,191:FILL 1 >KC 

1020 RETURN >EB 

1030 RESTORE 1090 >LN 

1040 READ A$,al,bl >LK 

1050 IF a«="F" THEN 1300 >P« 

1060 IF A$="P" THEN PLOT Al, Bl >WT 

1070 IF A$="D" THEN DRAW A1,B1 >WM 

1080 GOTO 1040 >NB 

1090 DATA P,319,239,D,317,237,P,301, 253,0,295,251, P,319 >PT 

,255,0,325,255 

1100 DATA P, 331, 247,D,332,249,D, 332, 261, 0,313,261, 0,312 >CP 

, 255, D, 313, 253,0,331, 247 

1110 DATA 0,355,241, D, 351, 239,0,335,239,0, 327, 235,D, 319 >CP 

,231,0,319,223,0,301,225 

1120 DATA 0,303,227, P.301, 225,0,299,223 >EK 

1130 DATA P,319,223,D,322,221,D,319,219,0,317,215,D,317 >CP 

,209,0,319,207,0,327,199 

1140 DATA D,325, 196,0,323, 193,0,319, 191, 0,303,193,0,295 >CF 

,177,0,287,175,0,283,175 

1150 DATA D,271,!B3,D,2è7 i !91 i D,27!,207 >F1 

1160 DATA D,271,215,D,269,217,D,263,223,0,255,239,D,253 >CG 

,241,0,255,255,0,255,263 

1170 DATA D, 259,271, 0,271,279,0,279,283, 0,287,283,0,293 >CJ 

,2B3,D,303, 275,0,311,271 

1180 DATA 0,317,263 >NC 

1190 DATA P,312,253,0,307,253,D,307,243,D,291,241,D,2B7 >CE 

,243,D,2B7,255,D, 293,259 
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1200 DATA 0,305, 259, E.307, 253 >VE 

1210 DATA P, 267,191,0,239, 171, 0,223,111,0, 351,111,1), 295 >BX 
,177 

1220 DATA P,2B7, 175, D, 279, 159, 0,267, 191, P, 279, 159, 0,303 >BT 
,111 

1230 DATA P, 287, 175, 0,303,159,0, 303, 171, 0,303,111 >PT 

1240 DATA P.283,163, 0,287, 159, 0,287, 143 >EN 

1250 DATA P, 295,167, 0,292,159,0,303,143 >EF 

1260 DATA P, 273, 231, 0,271, 227,0,259, 239, 0,261, 247,0, 263 >UA 
,253, 0,271,247, 0,271,261, 0,273,263,0, 267, 263, 0,269, 271, 
0,271,277 

Ml* WM, ¥ ,TS ,13fl ,%,Ufl ,1\3 >« 

1280 DATA P, 287, 251, 0,271, 248 >VB 

J290 DATA F, 1,1 >M 

1300 MOVE 255,143:FILL 1MVE 319,127:FILL iMVE 239,1 >f£ 
61:FILL 1 

1310 MOVE 263,255:FILL 1 >RE 

1320 RETURN >EK 

1330 LOCATE 2,6:PRINT "PRESIDENTIELLES" >J0 

1340 SYMBOL AFTER 190 >PY 

1350 BOSUB 1380:S0SÛB 1480:60SUB 1450 >EN 

1360 LOCATE 5,B:PRINT HUIT*:LOCATE 9,B:PRINT HUIT* >UT 

1370 RETURN >FE 

1380 ' >YE 

1390 RESTORE 1730 >LZ 

1400 FOR J=l TO 26 >LH 

1410 READ A,B,C,D,E,F,G,H,I >W 

1420 SYMBOL A,B,C,D,E,F,G,H, I >Xû 

1430 NEXT M 

1440 RETURN M 

1450 ' >VC 

1460 HUITt=AU+A2*+A3*+C*+A4*+B*+A5$+C*+A24$+A2$+A18*+C >HC 
*+A4*+B*+A5*+C*+AB*+A9*+A 1 0* 
1470 RETURN 



1480 ' REDEFINITION ASCII 

1490 Ai*=CHR*(200) 

1500 fl2*=CHR$(201) 

1510 A3*=CHR*I202! 

1520 A4*=CHR*(203) 

1530 A5*=CHR*(205) 

1540 A6*=CHR*(215) 

1550 A7*=CHR*(204) 

1560 A8*=CHR*(212i 

1570 A9*=CHR*(213) 

1580 A10*=CHR*(214) 

1590 A11*=CHR*!207) 

1600 A12*=CHR*(216) 

1610 A13*=CHR$(210) 

1620 A14*=CHR*(217) 

1630 A15*=CHR*(21B) 

1640 A16*=CHR*(219) 

1650 A17t=CHR9(220i 

1660 A1B*=CHR*(20B) 

1670 A19t=CHR*(221) 

1680 A20*=CHR*(222):A21*=CHR*(2 

CHR*(225):A24*=CHR*(206) 

1690 A25*=CHR*(211) 



>FF 
>YF 
>LY 
>LR 
>LV 
>LY 
>LC 
>LF 
>LF 
>LG 
>LK 
>MT 

m 

>MP 

m 
>«v 

>HY 

>MB 
>MV 
>MD 
>MA 
!3):A22*=CHR*(224):A23*= >EG 

>MY 



1700 B*=CHR$ ( 128) ;C*=CHR«(8) +CHR* (8) +CHR» (8) +CHR* (10) 

1710 RETURN 

1720 ' REDEFINITION DES CHIFFRES 

1730 DATA 200,0,3,7,15,23,59,124,124 

1740 DATA 201,0,255,255,255,255,255,0,0 

1750 DATA 202,0,192,224,240,232,220,62,62 

1760 DATA 203,124,124,124,124,124,124,124,124 

1770 DATA 205,62,62,62,62,62,62,62,62 

1780 DATA 206,124,125,59,23,19,57,124,124 

1790 DATA 208,62,190,220,232,200,156,62,62 

1BÛ0 Mrtft 212,124,124,59,23,15,7,3,0 

1820 DATA 204,62,62,28,8,8,23,62,62 
1830 DMA 207, 0, 0, 0, 0,8,28,62,62 
1B40 MTR 201,0,192,224,240,224,192,0,0 
1850 DATA 210,0,3,7,15,7,3,0,0 
1S60 DATA 211,0,1,3,23,19,57,124,124 
1870 DATA 215,124,124,56,16,16,56,124,124 
1880 DATA 213,0,0,255,255,255,255,255,0 
1890 DATA 216,62,62,28,8,0,0,0,0 
1900 DATA 217,62,190,220,232,192,128,0,0 
1910 DATA 218,124,125,59,23,3,1,0,0 
1920 DATA 219,0,0,192,224,240,224,192.0 
1930 DATA 220,0,1,3,7,3,1,0,0 
1940 DATA 221,0,0,3,7,15,7,3,0 
1950 DATA 222,0,0,0,0,16,56,124,124 
1960 DATA 223,124,125,59,23,3,1,0,0 
1970 DATA 224,0,192,224,240,224,192,0,0 
1980 DATA 225,0,128,192,232,200,156,62,62 
1990 RETURN 
2000 SYMBOL AFTER 200 
2010 SYMBOL 230,31,17,34,34,68,68,136,248 
2020 SYMBOL 231,31,4,12,8,24,16,48,32 
2030 SYMBOL 232,15,9,18,18,60,36,72,72 
2040 SYMBOL 233,4,4,8,8,16,16,32,32 
2050 SYMBOL 234,8,8,16,16,32,32,64,124 
2060 SYMBOL 235,15,8,16,16,60,32,64,124 
2070 SYMBOL 236,9,9,18,18,36,36,72,120 
2080 SYMBOL 237,33,34,20,24,16,60,68,132 
2090 SYMBOL 223, 0.5o, 16, 16,0,0,0,0 
2100 TITRE*=CHR* C 164) + ,, -"+CHR* (230) +" . "+CHRt (231 ) +CHR* ( 
232Î+CHRS (233) +CHR* (2341+CHR* (234) +CHR* (235) +CHR* (236!+ 
CHR* (237) +"-1988" 

2110 SYMBOL 250,12,20,36,76,255,66,91,66 
2120 SYMBOL 251,0,0,0,0,255,66,218,66 
2130 SYMBOL 252, 126,0, 2,0, B, 6, 1,0 
2140 SYMBOL 253,126,0,64,0,16,96,128,0 
2150 SYMBOL 249,24,40,72,12B,0,0,0,0 
2160 L0B01*=CHR$(250)+CHRt(251!+CHR*(249) 
2170 L0GD2$=CHR*!252I+CHR*(253) 

2180 LOCATE 3,20:PRINT LDGOi*: LOCATE 3,21:PRINT L0G02*: 
LOCATE 6,2Û:PRINT TITRE*: 
2190 RETURN 
2200 MODE 1 

2210 INK 0,0: INK 1,26: BORDER 10 
2220 PAPER 0:PEN 1 
2230 RESTORE 2300 



>WE 
>FC 
>YC 
>BD 
>DF 
>FA 
>KU 
>CN 
>FB 
>G6 
>BE 



>vo 

>BF 
>FV 
>DP 
>XD 
>EP 
>AU 
>DA 
>VB 
>VF 
>AL 
>AV 
>DB 
>FU 
>GC 
>PH 
>BB 
>CG 
>DM 
>BK 
>DG 
>EU 
>DH 
>FH 
>AH 
>KX 



>FR 
>CH 
>ZA 

>DC 
>BR 
>HB 
>YC 

»:n 

>FF 
>NK 
>XN 
>LC 
>LL 
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2240 READ A» 

230 ÎF UPPER$iA*i="FIN" THEN 2550 
22tû IF UPPERt(A»="ES" THEN PRINT CHR*fl3) :PRINT: i 
2240 

2270 PRINT A*: 
2280 S0TO 2240 
2250 ' RESLE DU JEU 

2300 DATA ...Vous êtes candidat aux élections 
2310 DATA présidentielles. Heiaslun groupe terroris 
2320 DATA -te vous a vole vos 500 signatures qui 
2330 DATA vous autorisent a vous présenter. 
2340 DATA .Ce groupe reclaae une rançon. en échange 
2350 DATA de quoi. votre recueil de signatures vous 
2360 DATA sera rendu, . , 
2370 DATA es 

23S0 DATA — > Comment se diriger ? 
2390 DATA Au moyen des 4 fiachss haut/bas/droite-' 
2400 DATA et gauche 
2410 DATA es 

2420 DATA La touche C0FY permet de faire ie bilan 
2430 DATA es 
2440 DATA La syntaxe 

2450 DATA .Le verbe doit être entrer en premier a 
2460 DATA 1 'infinitif. suivi d'un mot comme ci-des 
2470 DATA -sous: 
2480 DATA es 

2490 DATA =====> PARLER TONTON <== 
2500 DATA es 

2510 DATA MAINTENANT A «DUS DE JOUER •>!!!!!! 
2520 DATA es 

2530 DATA <ESPACE> pour .jouer 

2540 DATA FIN 

2550 WHILE INKEYtO" "sNEND 

2560 SPEED INK lu, 10 

2570 MODE 0:INK 0,0: INK 1,26,3; INK 2,3,19:INK 3,3: IN 

.10 

2580 BORDER 2,3 

2590 L0CATE 5,10:PRINT "LOADING.. . « 

2600 RUN "PRESID1" 



PRESID I 



' PRESIDENTIELLES 
' NOM DU PROGRAMMEiPRESIDl 
' O.TAILLEUX 198S 
B0BUB 6750 

INK 0,0:1»; 1,10:11* 2,ÎS:INK 
BORDER 23 
PAPER 0:PEN 3 
IODE 1 
dessin page écran 

-"OR 1=1 TO 25 

PRINT STRINS*i40,238); 



OZ 


210 


m 


RAN 


VY 


526 


«p 


220 


RE 





BB 


?30 


AX 


w ; 



>HF 
>KC 
>WZ 
NU. 



>VF 



8: DRAW 96. 94: DRAW 14. 94; DRAW 

Y=YY-48:FL0T 553.YY:DRA»R 34. 
!.34:NEX" 



120 NEïT >SJ 

130 TITRE*=" PRESIDENTIELLES " #C 

140 WINDOU #1.2.6.2.6:PAFER #1.1:PEN #1.0: CL3 #1 :NL 

150 HINDOU #2,2,6,B,19:PAPER #2.2:PEN #2.0:CLS #2 >PX 

160 WINDDW #3.B.32,4.18:PAPER »3.3:PEN #3.0:CLS #3 >0Y 

170 WIHDOU #4. 34, 39. 4, 19: PAPER #4,2:PEN #4.0:CLS #4 >«F 

180 WINDDW #5,B.32,19.19:PAPER #5.i:PEN #5.0:CLS #5 >T8 

190 WINDOW #6.2.39.21,24:PAPER #6.0:PEN »6,2:CLS *6 VRF 

200 BRAPHICS PEN » 

MOVE IÎO,352:DRAW 512.352:DRAW 512,94:DRAK 110.94:D >W 

Î10.352:MOVE 526.352:DRAW 624.352:DRAW 624.94:DRAii] 

94: DRAW 526.352 

MOVE 0.0:DRAW 0.399:DRAW 639.3VV:DRAW 639.0:DRAW 0. >K 

Î1DVE 14.384:DRAW 96.384:DRAW 9a.3v2:DRAW 14,302:DRA m 
.384 

240 MDVE 110.334:DRAW 512.3B4:DRAW 512.366:DRAW 110.346 >fK 
:DRAH 110,384 

250 HDVE 14. 288: DRAW 96. 288; DRAW 96. 94: DRAW 14. 94; DRAW ;€H 
14.288 

260 YY=33é:F0R DD=! TO 4;Y 
0:DRAWR 0.-34:DRAWR -34,0:DRAWR 

270 PAPER 2:PEN vLN 

280 LOCATE B.2;PRINT TITRE*: >ïi 
290 LOCATE B,3,2:PRINT #1,CHR*C240! : :LDCATE #1.2,3:PRI 'M 
NT #1.CHR*!242>;" ":CHR* 1243):: LOCATE #1,3.4:PRINT ti.E 
HR*i241i: 

300 ' INIT m 

310 PA=O:S0T0 750 >LV 

320 ' entrée de la question >RF 

330 QUEST«=" >ME 

340 REM '>UD 

350 AA*=UPPER*iîNKEY*i:IF AA*="" THEN 350 >HA 

360 CLS »6:L0CATE #6.S.1:PRINT #6.CU*: >EL 

370 IF AA*=CHR*i240i THEN PR=FA:PA=PA+20:6GT0 750 >RN 

380 IF AA*=CHRS(24i! THEN PR=PA:PA=FA-20:GDT0 750 >RT 

390 IF AA*=CHR*i242) THEN PR=PA:PA=FA-2:G0TD 750 >QZ 

400 IF AA*=CHR*(243) THEN PR=PA:PA=PA+2:B0T0 750 >QP 

410 IF AA*=CHR*Î127! THEN 570 >VB 

420 IF AA*=CHR*<13! THEN 1070 >VU 

430 IF AA*=CHR*i224i THEN 470 >VA 

440 QUEBT*=OUEST*+AA* >RC 

450 LOCATE #6.2,1:PRINT #6. CHR$! 1S) : OUEST*: >LU 

460 GOTO 340 >ZD 

470 ' BILAN >TB 

480 bi=0 >W 

490 PRINT »6,"Vous ave: ": HP 

500 IF PEI=1 THEN PRINT #6, "un peigne, "::bi=bi+l m 

510 IF LEBI0N=1 THEN PRINT #6, "une leqion,": :bi=bi+l >AX 

520 IF MAIL=i THEN PRINT #6, "un maillet. "::bi=bi+l >KF 

530 IF GA=1 THEN PRINT #6, "un gâteau, "::bi=bi+l >TX 

540 IF bi=0 THEN PRINT th. "RIEN DU TOUT ! ! !" >LJ 
550 PRINT #6, "Votre rançon est de ": rançon:: IF RANCûN=û ;BF 
THEN PRINT #6," franc" ELSE PRINT #6," francs" 

560 GOTO 330 >ZD 

570 QU=LEN (OUEST*! >NA 

580 IF QU=0 THEN GOSUB 410:S0T0 340 >BB 
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590 quE5T«=LEFTt(QUEST*,QU-l) >ZA 

600 GOTO 450 >ZB 

410 ENV 4,1,15,10,1,-3,3,6,-2,10 H» 

620 SOUND 1,0,0,0,4,0,12 W 

630 FOR t=0 TO 200:NEXT t >TK 

640 FOR i=40 TO 90 >LU 

650 SOUND 2,i,l,9-INT(i/10),0,0,0 >AL 

660 NEXT i > pfl 

670 RETURN >V 

680 ALD=INT(RNDt4+l) >PV 

690 ON AID GOSUB 710,720,730,740 >YY 

700 RETURN >E 

710 PRINT #6,"Pas bavard, aujourd'hui. ..";:RETURN >BX 

720 PRINT #6, "Sourd et muet, tristesse !":RETURN >BP 
730 PRINT #6,"Vite,dite5 quelque chose sinon je -fais >KB 
un RESET gênerai !!!";: RETURN 

740 PRINT #6, "Si je vous ennuie, dites-le !H";:RETURN >HG 

750 IF PA=-2 THEN CLS *3:CLS #5:G0SUB 24B0:PD=1 >NC 

760 IF PA=0 THEN CLS #3:CLS #5:G0SUB 2750:PD=1 >MS 
770 IF PA=2 AND LEGION =1 THEN CLS #3:CLS #5:G0SUB 5920 >PL 
:PD=l:GOT0 790 

780 IF PA=2 THEN CLS #3:CLS »5:G0SUB 3090:PD=1 >MT 

790 IF PA=4 THEN CLS #3:CLS »5:G0SUB 3180:PD=1 >M» 
800 IF PA=1B AND 0UV=1 THEN CLS #3:CLS t5:60SUB 6060:PD >KW 
=1iSDT0 820 

810 IF PA=1B THEN CLS #3:CLS »5:G0SUB 3410:PD=1 >ND 

820 IF PA=20 THEN CLS #3:CLS #5:G0SUB 3570:PD=1 >NE 

830 IF PA=22 THEN CLS #3: CLS #5: GOSUB 36B0:PD=1 >NK 

840 IF PA=40 THEN CLS #3:CLS #5:G0SUB 3970:PD=1 >NN 

B50 IF PA=42 THEN CLS #3:CLS #5:G0SUB 4280:PD=1 >NL 

B60 IF PA=56 THEN CLS »3:CLS #5:G05UB 4540:PD=i >NR 

870 IF PA=5B THEN CLS #3:CLS #5:G0SUB 4700:PD=1 >NT 

880 IF PA=60 THEN CLS #3:CLS #5:G0SUB 5150:PD=1 >NL 



>EF 
>XF 

>WY 



.. IF PA=62 THEN CLS #3:CLS #5:60GUB 5310:PD=1 >NM 
900 IF PA=64 THEN CLS »3:CLS #5: GOSUB 5550: PD=1 >NH 
910 IF PD=0 THEN GOSUB 980:F0R T=l TO 2000:NEXT:G0T0 33 >ZT 


920 LOCATE #5,1,1:PRINT #5,TITRE1$;:PD=0 >HH 

930 IF N0RD=1 THEN LOCATE ll,3,l:PRINT *1,"N";:ELSE LOC >CE 
ATE tl,3,l:PRINT il." *| 

940 IF SUD=1 THEN LOCATE »1,3,5:PRINT il, "S"; sELSE LOCA >BV 
TE #1,3,5:PRINT 11," "; 

950 IF 0UEST=1 THEN LOCATE #1,1,3:PRINT #1,"0";:ELSE LO >E« 
CATE #1,1, 3: PRINT #1," "'; 

960 IF EST=1 THEN LOCATE #1,5,3:PRINT #1,"E";:ELSE LOCA >BK 
TE #1,5,3:PRINT 11," "; 

970 GOTO 330 Wl 

980 ALD=INT(RND*4+1) >PY 

990 ON ALD GOSUB 1030,1040,1050,1060 >BR 

1000 PA=PR 
1010 RETURN 

1020 ' pas de direction 

1030 PRINT #6, "Par la, c'est sans issue,Poil au.. .Nez! 
: RETURN 

1040 PRINT #6, "Ou voulez-vous aller par ici ?";:RETURN >LA 
1050 PRINT #6,"Circulez,y'a rien a voir !!!";:RETURN >EZ 
1060 PRINT #6, "Puisqu'on vous dit que par la c'est 
ferme ,Na !!!";: RETURN 
1070 QU=LEN (OUEST*) 
1080 IF QU=0 THEN GOSUB 6B0:G0T0 340 
1090 VERB$="":MOT«="" 
1100 FOR 1=1 TO QU 
1110 XX*=MD*[QUEST*,I,D 
1120 IF XX$=" " THEN RP1=I:G0T0 1160 
1130 VERB«=VERB$+XX« 
1140 NEXT 

.1150 IF LEN (VERB*)=QU THEN 1220 
il60 FOR I=RP1+1 TO DU 
1170 XX»=MID«(QUEST*,I,1> 
1180 IF XX$=" " THEN 1220 
1190 NOT$=«OT*+XX* 
1200 NEXT 

1210 ' analyse de la question 
1220 REP*=QUESTt 



>UQ 

>PJ 
>CF 
>PP 
>LH 
>UC 
>CR 
>PE 
>KH 
>VV 
>PH 
>UJ 
>QB 

>Nq 

>KE 
>XG 

>LC 
1230 IF REP$="PARLER CHICHI" AND PA=0 THEN GOSUB 1620:G >6L 
OTO 330 

1240 IF REP*="OUvRIR PLACARD" AND PA=2 THEN GOSUB 5920: >VZ 
GOSUB 1650:GOTO 330 

1250 IF ((REP*="PRENDRE LEGION") OR(VERB*="PRENDRE u AND >HN 
M0T«="LE6ION")) AND PA=2 AND LEGION=0 AND PLC=0 THEN G 
OSUB 1690: GOTO 330 

1260 IF REPJ="PRENDRE JOURNAL" AND PA=20 THEN PRINT #6, >NC 
"Il n'y a plus qu'a le lire !"j:LJ=l:GDTO 330 
1270 IF REP*="LIRE JOURNAL" AND LJ=1 AND PA=20 THEN GOS >ZF 
UB 6230: PD=1: GOTO 910 

1280 IF REP«="DONNER RANÇON" AND RANCON<600000 THEN 659 >AF 


1290 IF REP$="DONNER RANÇON" AND RANCON>=600000 THEN 64 >BQ 
00 
1300 IF REP*="PARLER VALY" AND PA=-2 AND PV=0 THEN GOSU >QU 



36 
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B 1570:B0T0 330 

1310 IF REP*="D0NNER PEIGNE" AND PA=-2 AND PEI=1 AND PP > 
EI=Ô THEN FPEI=1:S0SUB 1730-.60T0 330 
1320 IF REF"M"PARLER CONCIERBE" AND PA=4 AND PCC=0 THEN > 
BOSUB 1B00:B0TG 330 

1330 IF REP*="CPC" AND PA=4 THEN GBSUB 1B50:BBT0 330 > 
1340 IF REP*="OUVRIR COFFRE" AND PA=1B AND OUV=0 THEN 1 > 
KO 

1350 IF REP*="PRENDRE MAILLET" AND FA=13 AND 1*IL=0 AND > 
ÛUV=1 AND DOM=0 THEN BDSUB 1950: GOTO 330 
1340 IF REF$="PARLER BARZOU" AND PA=22 AND PMRX THEN ; 
BOSUB 2010:G0TD 330 

1370 IF REP$="DONNER GATEAU" AND PA=22 AND BA=1 THEN BO ) 
5UB 2040: BOTO 330 

13B0 IF REP»="PARLER TONTON" AND PA=40 AND PTO=0 THEN 6 S 
OSUB 21 10: BOTO 330 

1390 IF REP$="DONNER LEGION" AND PA=40 AND LEGIONS THE I 
N BOSUB 2150: GOTO 330 

1400 IF REPt=" REBARDER LAVABO" AND PA=42 AND PEI=0 AND : 
PLAV=0 THEN GOSUB 2240: BOTD 330 

1410 IF REPt="PRENDRE PEIGNE" AND PA=42 AND PEI=0 AND R ', 
PEI=0 AND PPL=1 THEN PLAV=1:S0SUB 2280 :G0TO 330 
1420 IF REP*="PARLER MARCHY" AND PA=64 AND PMA=0 THEN G : 
OSUB 2350: BOTD 330 

1430 IF REP*="JOUER LOTERIE" AND PA=5B AND JL=0 THEN GO : 
SUB 4900: GOTO 330 

1440 IF (REP»="PARLER CHABLAN-DELCRASS" OR REP*="PARLER : 
CHABLAN") AND PA=62 AND PCD=0 THEN BOSUB 5010: GOTO 330 

1450 IF REPS="DONNER MAILLET" AND PA=62 AND MAIL=1 THEN : 
BOSUB 5070: BDTO 330 

1460 IF VERB«="PARLER" THEN PRINT #6, "Je ne dis plus ri 
en...Naî" 

1470 IF VERB$="DONNER" THEN PRINT *6, "Quand on n'a rien 
,on peut tout donner" 

1480 IF VERB$="PRENDRE" THEN PRINT *6,"Lai55e:-sn pour 
les autres !" 

1490 IF VERB«="TUER" THEN PRINT »6,"Pas de pétard a l'E 
lysee !" 
1500 IF VERB*="JOUER" THEN PRINT#6. "Allej .jouer ailleur 

1510 IF VERB*="ÛUVRIR" THEN PRINT#6, "Fermer la !'!" 
1520 IF VERB*="FERMER" THEN PRINT#6,"Ne vous donne: pas 

cette peine" 
1530 IF VERBS="FQUILLER" THEN PRINT#6,"Vcus n'allez pas 

tout déménager!" 

1540 IF VERB*="CHERCHER" THEN PRINTi6."Vous cherche: li 
di a 14 heures 1 ! !" 
1550 BOTD 330 
1560 réponses 

1570 PV=1:PRINT #6,"J'aimerais coiffe «es adversaires" 
15B0 PRINT #6, "sur ie poteau, mais j'ai égare mon" 
1590 PRINT #4, "peigne. Si vous êtes de mèche avec moi" 
1600 PRINT #6, "retrouve: le et je vous récompenserai" 
lélO RETURN 

1620 PRINT tt6, "Bonjour, crac!crac!" 
1630 PRINT #6, "Avec le numéro 13, parte: gagnant" 





1640 


WL 


1650 




1660 


VK 


1670 




ur ! ! 


UK 


16B0 


BF 


1690 




1700 


CP 


T »3, 




1710 


•XJ 


1720 




1730 


,n 


1740 




1750 


•«s 


1760 




1770 


■ZA 


1780 




1790 


H1F 


1800 




1810 


>NM 


1820 




1B30 


W 


1840 




1850 


M 


1860 




1870 


>CV 


18B0 




1890 




1900 


>ÏU 


1910 



RETURN >FE 

IF LEBI0N=1 THEN RETURN >XU 

IF PLC=1 THEN RETURN >UX 
PRINT #6,"I1 contient une superbe légion d'hor- re >AV 

RETURN >FJ 

PRINT #6,"Elie est a Vous !!!*< >GU 
LOCAÏE #4,3,B:PRÏNT #4,LEBIDN$:L0CATE #3,13,9:PRIN >JH 
,EF* 

LE6I0N=i:PLC=l >PL 

RETURN >FD 

PRINT #6, "MERCI ! pour vous remercier, je vous" >BM 

PRINT *6, "donne 100 000 Frs !" >DF 

RANC0N=RANC0N+10O000 >VT 

PEI=0 >NH 

LOCATE #4,3,5:PRINT *4,EF$; >ZK 

LOCATE #2,1,2:PRINT #2,RANCDN$: >DD 

RETURN >BA 

PRINT #6, "Je connais la combinaison du coffre" >JN 
PRINT #6, "de TONTON. Pour la connaître, dites moi" >KZ 

PRINT #6, "guelle est la meilleure revue pour" >HF 

PRINT #6,"ies ordinateurs AMSTRAD ?" >RJ 

RETURN >FG 

pcc=1:PRINT #6, "Bien vu !"" >CF 

PRINT #6, "Pour vous remercier, voici la " >ZM 

PRINT #6, "combinaison du coffre: 19BB" >UD 

RETURN >GA 

PRINT #6, "Entre: la combinaison du coffre:" >EH 

INPUT #6,"->";C0M* >R« 
IF C0M*="19B8" THEN PD=1 : 0UV=1 : BOSUB 6060:G0T0 910 >YV 



TP 1920 PRINT i6, "C'est la combinaison du coffre gue je" 

1930 PRINT #6, "vous demanderas celle du LOTO !" 
RK 1940 GOTO 330 

1950 PRINT #t,"I! est a vous, mais ne vous en rende:" 
BH i960 PRINT #6, "pas marteau ! ! ! " 

1970.MAIL=1 
■RB i960 LOCATE t3,ll,6:PRINT #3,EF«; 

1990 LOCATE #4,3. 1 IrPRINT #4, MAIL»; 
Ff 2000 RETURN 

, 2010 PBAR=1:PRINT #6, "J'ai une de ces faims, trouve: moi 
-Y3 un" 
■DQ 2020 PRINT *6, "gâteau et vous aure: 100 000 frs !" 

2030 RETURN 
>KK 2040 PRINT 16, "Chose promise, chose due, foi de tortue" 

2050 PRINT *6, "Voici 100 000 frs '!'" 
v: 2060 RANC0N=RANCON+ 100000 

2070 SA=0 

2030 LOCATE »4,3,14:PRINT t4,EFt; 

2090 LOCATE »2,1,4:PR!NT t2, RANÇON»: 

2100 RETURN 

2110 PT0=1:PRINT #6, "J'ai égare ma légion d'horreur. Si 



2120 PRINT #6, "vous la retrouve:, vous aure: le droit" 

2130 PRINT #è,"a une super-prime !!" 
.2140 RETURN 
^ 2150 PRINT «6, "Merci mille fois, tralala 1 " 



:>FF 
>JU 
•CB 
»YB 

>AP 

>m 

>EF 

>TG 

>BY 

>EJ 
>«M 

m 

>VM 

>CG 
.AH 

m 

>EG 
>MT 

• NR 
>JK 
>FA 
>T*I 
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2140 PRINT #6, "Pour la peine,acceptez ces 100 OOOfrs" >HL ,214,0,253,207 



2170 PRINT #6, "qui viennent personnellement des" 

2130 PRINT #4, "caisses de l'ETAT !" 

2190 RflNCDN=RANCDN+ 1 00000 

2200 LEGI0N=0 

2210 LOCATE #4,3,8:PRINT *4,EF»| 

2120 LOCATE #2,1,6;PRINT #2, RANÇON»; 

2230 RETURN 

2240 PRINT #6, "Il y a un superbe peigne !" 

2250 PPL=1 

2260 LOCATE #3, 17, 9: PRINT #3,PEI6»; 

2270 RETURN 

22S0 RPEI=1:PRINT #6, "Il est a vous !!!" 

2290 PRINT #6, "Mettez le sur votre oeil, vous aurez" 

2300 PRINT #6, "l'air de Jean-Marie Lepeigne !" 

2310 PEI=1 

2320 LOCATE #3, 17, 9:PRINT #3,EF$; 

2330 LOCATE #4,3,5:PRINT #4,PEIBï; 

2340 RETURN 



>GF 2630 DATA 0,251, 205, D, 239, 200, D, 227, 207, D, 216, 223, D, 215 >NA 

>W ,225,0,207,223 

M : 2640 DATA D, 199,226,0, 191, 231, 0,189,239,0,187,247,0,191 >P« 

>HH ,253,0,191,253 

>ZC | 2650 DATA D, 201 , 247, P, 21 5, 295, D, 207, 2B7, D, 191 , 271. 0,179 >CU 

>DX ,263,0, 182,247,0,189,247 

>FA | 2660 DATA P,229,257, 0,233,255, D,239,257,B, 247,257,0,255 >BX 

>TD ,255 

>PH I 2670 DATA P, 239,277,0,235,279,0,231, 273,P,247,279,0, 255 >BC 

>CQ I ,281 

>FE 2680 DATA P,227,207,D,223,191, 0,207, 191,0,199,205,0,205 >BF 

>LA ,223 

>KC , 2690 DATA P, 179,205,0, 159, 175,0, 159,111,0,255, 111,0,239 >CJ 



>YR 



,175,D,231,177,D,225,193 

>NA I 2700 DATA P.221, 191, D,207,175,P, 221, 191, 0,231, 175 >PG 

>AM : 2710 DATA P,199,205,0,223,127,D,231, 177 >EZ 

>BA 2720 DATA P,211, 177, D,216,172,D,211,159,P, 224,179,0,218 >PV 

>FC ,172,0,225,157 

2350 PRINT #6, "J'ai oublie l'heure de mon débat avec"; >LU 2730 DATA P, 198,253,0, 207,255, 0,227, 289, P, 196,253,0,207 >PE 

2360 PRINT 16," le BARZOU !" >BP ,279,D, 223,289 

2370 PRINT #6, "La connaissez-vous ?" >LX 2740 DATA F, 1,1 >RJ 

2380 INPUT #6, "ENTRER L'heure (XXHXX):";HE* >QR 2750 ' PRES DE CHICHI >YG 

2390 IF UPPERt<HE«)O"20H30" THEN PRINT #6, "Donne moi t >FA 2760 RESTORE 2790 >MA 

a montre et je te donnerai":PRINT 16, "l'heure (Devise d 2770 GOSUB 7160 >YC 

u P. . " : RETURN 2780 GOTO 3020 >HK 

2400 PRINT #6, "A la bonne heure !!>" >HL 2790 DATA P,319,239,D,317,237,P,301, 253,0, 295,251, P.319 >PB 

2410 PRINT #6, "Voici 100 000 frs en remerciements" >DC ,255,D, 325,255 

>GA 2800 DATA P,331,247,0,332,249,D, 332,261,0, 313,261, D,312 >CY 

>XN ,255,D,313,253,D,331,247 

>KV 2810 DATA D, 355,241, 0,351, 239,0,335, 239,0, 327, 235,0, 319 >CY 

>VQ , ,231,0,319,223,0,301,225 

>FF 2820 DATA 0,303,227, P,301, 225,0,299, 223 >EU 

>VF 2830 DATA P,319,223,0,322,221, 0,319, 219,0,317, 215,0,317 >CY 

>VG | ,209,0,319,207,D,327,199 

>LC 2840 DATA 0,325, 196,0,323,193, D,319, 191,0,303,193,0,295 >CP 

>XD ,177,0,287,175,0,283,175 

2510 MOVE 175,127:FILL lzMOWE 218,151:FILL IsflOVE 218,1 >HE 2850 DATA 0,271,183,0,267,191,0,271,207 >EV 

7i:FILL ' 2860 DATA 0,271, 215, 0,269, 217, 0,263, 223,0,255,239, D.253 >CQ 

2520TITRElt="CHEZVALY..." y m ,241,0,255,255,0,255,263 

2530 QUEST=0: EST- 1 : N0RD=1 : BUD=0 >BR 2870 DATA 0,259, 271,0, 271, 279,D,279,2B3,D,2B7,283,0, 293 >CT 

2540 RETURN >FE ,283,0,303,275,0,311,271 

2550 DATA P,367,239,D,447,239,D,415,287,D,399,2B7,0,367 >CD 2B80 DATA 0,317,263 >ML 

' 23 ' 2890 DATA P, 312, 253, D, 307, 253, D, 307, 243, D, 291 , 241 , D, 287 >CN 

2560 DATA P,399,239,0,3B3,223,D,399,175,D,415,175,0,431 >PN ,243,D, 2B7, 255, D, 293,259 

,223,0, 415,239 2900 DATA D, 305,259,0,307,253 >VN 

2570 DATA P,511, 175,0,319,175,0,335,159,0,335,111,0,511 )PA 2910 DATA P,267,191, 0,239,171, 0,223,111, 0,351, 111, 0,295 >BF 

,111,0,511,175 .177 

2580 DATA P,511,159,0,335,159,P,351,143,D,351, 127,0,415 >CA 2920 DATA P,287, 175,0,279,159,0,267,191, P.279, 159, D.303 >BB 

,127,0,415,143, 0,351,143 ,111 

2590 DATA P,431, 143,0,431, 127,0,495, 127,0,495, 143,0,431 >BM 2930 DATA P, 287, 175,0,303, 159,0,303,171,0,303,111 
,143 



2420 PRINT #6,"de la part de la cellule du KREMLIN., 

2430 PRINT #6,"..Bicetre !'" 

2440 PMA=1:L0CATE #2,1,B:PRINT #2,RANC0N$: 

2450 RANCON=RANCON+100000 

2460 RETURN 

2470 ' graphiques 

2480 ' CHEZ VALY 

2490 RESTORE 2550 

2500 BOSUB 7160 



2940 DATA P.2B3, 163,0,287, 159,0,287, 143 



>PB 
>EX 
2600 DATA P, 215, 295 , D, 239, 289, D, 257, 273, D, 259, 271 , 0,255 >PJ 2950 DATA P,295^ 167,0^292; 159^ 0^303, 143 >EP 

,255,0,253,253 2960 DATA P, 273, 231,0,271, 227, 0,259, 239,0,261, 247,0,263 >UJ 

2610 DATA 0,263,239,0,261, 237,D,251, 237,0,251, 231, 0,255 >NM ,253,0,271, 247,0,271, 261, D,273,263,D,267,263,D,269,271 
,223,0,241,223 0,271,277 

2620 DATA 0,255,223,0,253,221, 0,247,221, D,247,217,0,252 >NK . 2970 DATA P,257,239,D,269,219 >UR 
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2980 DATA P.287,251, 0,271, 248 >WB 

2970 DATA P,159,319,D, 167, 319, D, 167,303,D, 175,303, 0,175 >HB 

,295,0, 167, 295,0, 167, 271, 0,183, 271,0, 183, 263,D, 167,263, 

0,167,239,0,159,239,0,159,263,0,143,263,0,143,271,0,159 

, 271, D,159,295,D, 151, 295,0, 151, 303, D,159,303,D, 159,319 

3000 DATA P, 135,335,0,191, 335,0, 191, 223.D, 135,223,0, 135 >BP 

,335 

3010 DATA F, 1,1 >QK 

3020 MOVE 255,143:FILL 1:M0VE 319,127:FILL 1:M0VE 289,1 >HF 

61:FILL 1 

3030 MOVE 263,255:FILL 1 >RF 

3040 MOVE 263,227:FILL 1:M0VE 261,229:FILL liMOVE 258,2 >HL 

39:FILL 1 

3050 MOVE 161,303:FILL 1 >RY 

3060 TITREl$="Pres de CHICHI..." >C¥ 

3070 N0RD=1 : SUD=0: DUEBT=1 : EST=1 >ET 

3080 RETURN >FE 

3090 ' PLACARD DE L'ELYSEE >YE 

3100 RESTORE 3160 >LN 

3110 GOSUB 7160 >XB 

3120 GOTO 3130 >MA 

3130 TITRElS="Un placard de l'ELYSEE..." >NL 

3140 0UEST=1:EST=1:N0RD=1:SUD=0 >BQ 

3150 RETURN >FC 

3160 DATA P,223,303,0,207,319,0,447, 319,0,431, 303,0, 223 >RC 

,303,0,223,111,0,431,111,0,431,303 

3170 DATA P, 239, 111, 0,239,287, 0,415,287,0,415,111,0,327 >XC 

,111,0,327,287,F,1,1 

3180 ' concierge >YE 

3190 RESTORE 3260 >LZ 

3200 60SUB 7160 >XB 

3210 TITREl$="Le Concierge de l 'Elysée" >QD 

3220 LOCATE #3,4,5:PRINT #3, "CONCIERGE"; >HU 
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3230 
3240 
3250 
3260 
,231 
3270 
,207 
3280 
,279. 
3290 
3300 
3310 
3320 
,241. 
3330 
,209. 
3340 
,255, 
3350 
,111, 
3360 
,175. 
3370 
,111 
3380 
3390 
,295 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
,351 
3480 
3490 
3500 

■VÎT 

3510' 
3520 
3530 
,237, 
3540 
,241, 
3550 
,239, 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
I ,127, 



MOVE 354,191:FILL 1 

0UEST=1 : EST=0: N0RD=O:SUD=0 

RETURN 

DATA P, 383, 287, D, 367, 285, D, 351, 271, D, 343,239, 

DATA D, 343, 223, 0, 351 , 207, D, 367, 203, D, 383, 205, 

DATA 0,415,223,0,419,239,0, 419,247,0, 417, 255, 

0,391,287 

DATA 0,383,287, 0,383,303 

DATA P,383,287,D,375,300,P,383,2B7, 

DATA P,359,263,P,381,263 

DATA P,367,255,D,365,253,D,363,247 

D,380,249,D,375,255 

DATA P, 367,221, 0,363,221, 0,365, 213 

0,373,219,0,367,221 

DATA P, 399, 263,0,401, 268, 0,407, 271 

0,405, 251, 0,399,251 

DATA P, 351, 207, 0,319, 175, 0,299, 143 

0,479,175,0,447,207,0,415,223 

DATA P,351,207,0,351,159,D,291,127 

0,399,175 

DATA D, 415, 223.P, 439,215,0, 415, 159 



DATA P,319,175,D,319,319,D,479,319 
DATA P, 151, 295,0,311, 295,0,311, 26; 



,0,391,300 

,0,367,239, 

0,367,211, 

0,411,263, 

,0,287,111, 

,P,367,205, 

,0,447,143, 

0,479, 175 
,D, 151,263, 



0,341 
0,399 
0,399 

0,375 
0,375 
D,409 
0,495 
D.367 
0,447 

0,151 



DATA F, 1,1 

' coffre de tonton 

RESTORE 3470 

GOSUB 7160 

TITRE1«="Lb coffre de TONTON..." 

ÛUEST=0:EST=1:N0RD=0:SUD=1 

RETURN 

DATA P, 399,351, 0,255,351, 0,223,319,0,367,319,0, 399 

DATA P,223,319,0, 239,303, 0,351, 303,0,367,319 

DATA P, 239,303,0,239, 175,0, 351, 175,0,351, 303 

DATA P, 239, 175,0,223, 159,0,367, 159,0, 351, 175.D, 399 

0,399,351 

DATA P,399, 223, 0,351, 175 

DATA P.367, 159,0,415,207, 0,399,223 

DATA P,321,255,D,317,255,D,317, 241, 0,303,241, 0,303 

0,317,237 

DATA 0,317,223,0,321,223,0,321,237,0,335,237,0,335 

D, 321, 241 

DATA D,321,255,P, 111, 239,0, 239, 239, P, 399,239,0, 511 

F,l,l 

DATA F, 1,1 

'journal par terre 

RESTORE 3630 

GOSUB 7160 

TITREl*="Un journal par terre.. 1 ' 

0UEST=1:EST=1:N0RD=1:SUD=1 

RETURN 

DATA P, 111, 111, 0,399,207,0, 399, 351, P, 335, 127, 0,383 

0,415,175 



>RH 
>BP 
>FD 

>BY 

m 

>pp 

>vz 

>qv 

>a 

>CT 
>CG 



>BM 

ïQP 
>BH 

;RC 
>YA 
>LY 
>XE 
>KH 
>BU 
>FG 

m 

m 

>8E 
>Pfi 

)VF 
>EP 

>NC 

m 

>JL 

m 

m 

>LD 
>YD 
>NX 
>BU 
>FE 
>PF 
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3640 DATA B,367,175,B, 335,127 M 


4020 DATA P, 391, 269,B,387,267,D,379,267,D, 367,259,0,355 >BH 


3650 DATA P,431, 351, 0,431, 223, 0,415, 191, D,463,191, D,447 >PH 


,257 


,223,0,447,351 


4030 BATA D, 357, 255, D, 367, 253, D, 379, 253, D, 383, 251 , D, 395 M 


3660 OATA P,399,239,D, 431, 239,P, 447, 239,0, 511, 239 >QR 


,249 


3670 BATA F, 1,1 >TB 


4040 BATA 0,399,251,0,395,255 M 


3680 ' près de BARZOU >YK 


4050 DATA P,383,251, 0,379, 239, 0,387, 237, 0,399, 233, 0,401 >BF 


3690 RESTORE 3750 >MA 


,225 


3700 GOSUB 7160 >XG 


4060 OATA P,379,239,D,3B1, 231, 0,383, 233, 0,385,233,0, 387 >BC 


3710 TITREl*="Pres de BARZOU..." >DN 


,225 


3720 OUEST=1:EST=0:NDRD=1:SUD=1 >BV 


4070 DATA 0,384,225,0,383,223,0,385, 215,0,391,215,0,399 >BM 


3730 MOVE 319,143:FILL liHOSE 375,175:FILL lillME 367,1 >QR 


,217 


51:FILL 1:H0VE 415,256:FILL tiMHE 414,230:F1LL 1 


4080 DATA 0,399,221, 0,401, 215,0,403,211, D,413,213 >PZ 


3740 RETURN >FH 


4090 DATA P, 391, 273,0, 393, 275, P, 401, 269,0, 402,271 >QY 


3750 DATA P, 407,247,0,409, 263.B, 399, 273.B, 391, 275,0, 375 >BT 


4100 DATA P,397,213,D,417,195,0,467,231, D, 464,271, D, 463 >PL 


,271 


,279,0,461,287 


3760 BATA B,367,269,B,359,255,B,355,247,B,359,239,0,359 >PH 


4110 DATA 0,459,289,0,431,303,0, 415, 303.D, 403,295,0, 392 >BH 


,237,0,351,227 


,279 


3770 BATA 0,349,223,0,347,215,0,347,207,0,351, 199, B.359 >BB 


4120 DATA P, 398,291, 0,401, 293,0, 403, 291, F',411, 291, 0,415 >PH 


,195 


,293,0,417,287 


3780 BATA B,367,191,B,383,191,D,j9i,i9i,D,j99,195,D,407 ,>35 


4130 DATA P.427,271, 0,431, 263,0,431, 255, 0,423,245,0, 425 >PS 


,207 


,239,0,425,235 


3790 BATA B,4U,223,B,407,231,B,415,233,B,423,239,B,425 >Bfl 


4140 DATA D.419,221, P, 429,225,0,433,223,0, 435,239,0, 443 >PM 


.245 


,237,0,447,251 


3800 BATA B,417,253,B, 407,247 >VQ 


4150 OATA 0,451, 247,0, 461, 253,0, 463,263,0, 455, 271, 0,447 >BH 


3810 BATA P.363, 255,D, 367, 258,0, 371, 255, P, 383, 255, 0,387 >PK 


,263 


,258,D, 392,253 . 


4160 OATA P, 399, 207,0, 383,191, 0,367,175,0,343,111, 0,511 M 


3B20 BATA P, 363,241, B,366,239,B, 367, 239,0, 369, 241, P, 381 >ÏI 


,111 


,241, 0,383, 239,B,386,239,B, 388, 241 


4170 OATA 0,511,143,0,507,175,0,497,191,0,465,231 )>PE 


3830 BATA P, 369,237,0, 367,235,0, 365, 231, 0,369, 227,0,371 >PM 


4180 DATA D , 43 1 , 175, D, 403, 127 , D, 399, 159, D, 399, 207 >QK 


,229,0,375,231 


4190 DATA P, 399, 167, 0,417, 195, 0,419, 161 >EA 


3840 0ATA P, 368,224,0, 367,219,B, 365, 219,0, 363, 216,B,359 :>PR 


4200 DATA P, 401, 155,0,409,167,0, 407, 175,P, 419,159,0, 413 >PL 


,216,0,357,219 


,167,0,419,175 


3850 BATA B,355,219,B,353.222,P, 355, 219,0, 353, 216 >QH 


4210 OATA P, 447, 295, 0,435, 253, D, 447, 263, P, 455,251, 0,465 >BL 


3860 BATA P, 367,219,0,370, 219,B,372,216,B,376,216,B, 383 >CN 


,241 


,218,B,3B2,220,B, 385,214 


4220 DATA P, 159,239,0, 271, 239, 0,239, 303,0,191, 303,0,159 >HT 


3870 BATA P, 351, 199,0, 335,191, 0,303, 159,0,287,111,0,463 >CB 


,239,0,211,239,0,211,111,0,219,111,0,219,239 


,111,0,447,191,0,407,221 


4230 DATA F,0,0 >RC 


3880 DATA P,351, 199,0,367,127,0,400,192 >E0 


4240 MOVE 383, 175:FILL 1 >RP 


3890 DATA P,355,175,D, 375,191, 0,391, 175 >EA 


4250 MOVE 415, 175:FILL 1 >RL 


3900 BATA P,363,181,B,374,167,B,361,159,P,383,179,B,376 >PP 


4260 MOVE 455,279;FILL UfflS 464,242:F1LL 1 >KT 


,167,0,383,159 


4270 RETURN >FG 


3910 BATA P,411,223,B,415,224,B,421,239,P,419.253,B,415 >CN 


4280 ' Le lavabo >YG 


,269,0,407,273,0,391,275 


4290 RESTDRE 4420 >LA 


3920 BATA P, 143,319,0, 239,319,0,239,191, 0,143,191,0, 143 >BV 


4300 GOSUB 7160 >XD 


,319 


4310 PLOT 329,255 >LR 


3930 BATA P,159,303,B,223,303,fl, 223, 207,0,159,207,0,159 >BB 


4320 BEG :F0R 1=0 TO 180 STEP 10 >XR 


,303 


4330 DRAW 319+10»COS(I),255+10«SIN(I) >DR 


3940 DATA P,143,319,0,159,303,P,239,319,D,223,303,P,239 >EU 


4340 NEXT )LC 


, 191,0, 223, 207,P, 143, 191,0, 159,207, P, 191, 303,0, 191, 207, 


4350 PLOT 329,255 >LH 


P, 159,271, 0,223,271, P, 159,239, 0,223,239 


4360 FOR 1=0 TO 180 STEP 10 >T9 


3950 DATA F, 1,1 >TC 


4370 0RAH 319+6*C0S(I),255+6tSIN(I) >CG 


3960 ' CHEZ TONTON >ZA 


4380 NEXT >L6 


3970 RESTORE 4020 >LA 


4390 TITREl»="Le lavabo !!!" >YR 


3980 GOSUB 7160 >YG 


4400 0UEST=1:EST=0:N0RD=1:SUD=1 >BQ 


3990 TITREl»="Chez TONTON..." >ZD 


4410 RETURN >FC 


4000 OUEST=0 : EST= 1 : NORD= 1 : SUD= 1 >Bb=c 


;M20 OATA P, 309,255,0,309,207, P,313,255,0,313,207 >QG 


4010 60T0 4240 >HC 


4430 BATA P,255,207,B,367,207,D,367,191,B,255,191,D,255 >BW 



40 
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,207 " 

4440 DATA P, 259,191, 0,271, 175,D, 351, 175,0,343,191 m 

4450 DATA P, 303, 175,0,303,111, 0,319, 111,D,319, 175 >PV 

4460 DATA P, 271, 223,0, 275, 207,0, 283, 207, 0,287,223, 0,271 >BJ 

,223 

4470 DATA P.335, 223, 0,339,207, 0,347,207,0, 351, 223,0,335 >BF 

4480 DATA P,447, 207,0, 447, 127,0,495, 127,0,495,207,0,511 >PK 

,207,0,511,199 

4490 DATA 0,495, 199, 0,495,207, 0,415,207,0, 415, 199, D, 447 >BW 

,199 

4500 DATA P, 223,351, D, 223,231,0, 309,231, P,313,231, 0,399 >PJ 

,231,D,399,351 

4510 DATA D,223,351,P, 223,255,0, 271, 303, P,2B7, 319, 0,319 >BT 

,351 

4520 DATA P, 271 , 27 1 , D, 303, 303, P, 325, 255, D, 329, 255 >QH 

4530 DATA F, 1,1 HW 

4540 ' près du but :> VF 

4550 RESTORE 4620 >LB 

4560 BOSUB 7160 >VB 

4570 TITREl*="Pres du but..." >BE 

4580 PRINT#6, "Tout ce que je veux, c'est la rançon..." >KZ 

4590 0UEST=0:EST=1:N0RD=0:SUD=0 >B2 

4600 MQVE 327,303:FILL 1 >RE 

4610 RETURN >FE 

4620 DATA P,lll, 111,0,175,175,0,447,175,0,511, 111,0, 111 >BC 

,111 

4630 DATA P,239, 175,0,271, 239,0,303,255,0,351, 255,0, 383 >PB 

,239,0,415,175 

4640 DATA P, 303,255,0, 287,255, 0,303,303,0, 311, 319, 0,319 >BF 

,325 

4650 DATA 0,327,327, 0,335,325,D,351, 319, D,359, 303,0, 367 >PN 

,255,0,351,255 

4660 DATA P,315,271, 0,339,271, 0,339,267,0,315, 267,0,315 >BB 

,271 

4670 DATA P,303,295,D,311,299,D, 319, 295,0, 311, 291, 0,303 >BA 

,295 

4680 DATA P, 335,295,0, 343,299, 0,351,295,0, 343, 291, 0,335 >BU 

,295 

4690 DATA F, 1,1 >TE 

4700 ' A LA LOTERIE >VD 

4710 COPR=0 >ZC 

4720 DEG:PLOT 399,223 >PT 

4730 FOR 1=0 TO 360 STEP 10 >TR 

4740 DRAW 303+96*C0S ( I ) , 223+96*SlN ( I ) >EF 

4750 NEXT >LH 

4760 FOR 1=0 TO 330 STEP 30 >TU 

4770 PLOT 303+96*005 ( I ) , 221+94*8» ( I ) : DRAW 303, 223 >TP 

4780 NEXT >HA 

4790 FOR 1=0 TO 345 STEP 25 M 

4800 hWE 303+70*C0S(I),223+70*SIN(I) >DD 

4810 C0A=INT(RND*3+1) >?K 

4820 IF COA=COPR THEN 4810 ELSE COPR=COA >HA 

4830 FILL COA >KK 

4840 NEXT >LH 

4850 PLOT 415,223:DRAW 463,239:0RAW 463,207:DRAW 415,22 >YA 

3 1 



4860 MOVE 447, 223: FILL 2 >RU 

4870 TITRE1*="A la LOTERIE..." >ZN 

4880 OUEST=1:EST=1:NORD=0:SUD=0 >BC 

4890 RETURN >GE 

4900 PRINT #6, "Entre: le numéro gagnant " >UR 

4910 INPUT #6, "Votre numéro ";NU* >FV 
4920 IF NU*<>"13" THEN PRINT #6, "PERDU, vous emportez en >QX 
consolation": PRINT #6,"un lot de bulletins blancs !" : 
RETURN 

4930 JL=1:PRINT »6,"0ooouuuuuiiiiiiiiii !!!" >WC 

4940 PRINT #6, "C'est cornue a la roue de ia fortune!" >HR 

4950 PRINT t6, "Vous empochez 100 000 frs+1 gâteau!" >DW 

4960 LOCATE #2,1, 10:PRINT #2,RANC0N« >DT 

4970 RANC0N=RANC0N+ 100000 >Vfl 

4980 LOCATE #4,3, 14: PRINT #4,BATO$; >CB 

4990 SA=1 >EA 

5000 RETURN >EJ 

5010 PCD=1 >™ 

5020 PRINT #6,"Couin'couin" >ZV 

5030 PRINT #6, "Je suis descendu de mon perchoir, car" >KN 

5040 PRINT #6, "on m'a vole mon maillet !" >RR 

5050 RETURN >F0 

5060 PRINT #6, "retrouve le premier '" >MF 

'5070 PRINT #6,"Francais, Française, Merci beaucoup !" >HQ 

5080 PRINT #6, "Voici 100 000 frs" >CB 

5090 D0M=1 >P fl 

5100 RANC0N=RANC0N+100000 >VK 

5110 MAIL=0 >ï* 

5120 LOCATE #4,3, 11: PRINT »4,EF$; >AC 

5130 LOCATE #2, 1 , 12: PRINT #2, RANÇON»; >EE 

5140 RETURN >F" 

5150 ' devant L'ELYSEE >YD 

5160 RESTORE 5240 >t-Y 

5170 GOSUB 7160 >XK 

5180 XX=127 >KE 

5190 FOR 1=1 TO 6 >CJ 

5200 XX=XX+48:hWE XX,267:G0SUB 5300:NEXT >LN 

5210 TlTREl*="Devant l'Elysée..." >GE 

5220 0UEST=l:EST=l:N0RD=O:SUD=l >BR 

5230 RETURN >™ 

5240 DATA P.311. 327,0,159,271, 0,463,271, 0,311, 327 >PF 
5250 DATA P, 143, 159, 0,479,159, D, 495, 155, D, 127, 155.D, 143 >BM 
,159 

5260 DATA P, 127, 155,0, 127,151,0,495,151,0,495,155 >QK 

5270 DATA P,127,151, 0,111,147,0,511, 147,0,495,151 >PC 



5280 
5290 
5300 
AMR ■ 
5310 
5320 
5330 
5340 
5350 
5360 
5370 



DATA P,lll, 147,0,111, 143,D,511, 143,0,511, 147 >PL 

DATA F, 1,1 >TB 
DRAWR 32,0:DRAWR -B,-12:DRAWR 0,-B0:DRAWR 8,-12:DR >XA 
■32,0:DRAWR 8,12:DRAWR 0,80:DRttlR -8,12:RETURN 

' avec chablan ^YB 

RESTORE 5380 >LÎ 

GOSUB 7160 >*H 

TITREl*="Avec CHABLAN-DELCRASS" >HP 

OUEST=1:EST=1:NORD=0:SUD=1 >BW 

MOVE 367, 127: FILL 1 >RT 

RETURN >FJ 



5380 DATA P,321, 237, 0,315,231, 0,307,215, 0,319, 217,0,317 

,209,0,327,20? 

5390 DATA P, 319,209, 0,317,206,0,307,195,0, 309,191, 0,319 

,191,D,323,193 

5400 DATA 0,335,195,0,359,207 

5410 DATA F',31B,241, 0,327, 238 

5420 DATA P, 31 9, 213, D, 335, 259, D, 345, 267, D, 375, 267, D , 391 

,255,0,397,243 

5430 DATA 0,379,207,0,351, 191, D, 333, 193 

5440 DATA P,365,239, 0,367,241, D,373,239, 0,375,231, 0,371 

,223,0,364,221 

5450 DATA P,351, 191, D,335,175,D,319,143,D, 303,111, 0,431 

,111,0,415,159 

5460 DATA D,399, 191,0,379,207 

5470 DATA P,341, 258,0,351, 263,0,367,263, 0,379, 263 

5480 DATA p, 351, 255,0,375,257,0,383,255 

5490 DATA P,355, 252,0,367, 252, 0,375,250,0, 395,241 

5500 DATA P,359,250,D, 363, 239,0, 391, 231 

5510 DATA P, 375, 226,0, 383, 215 

5520 DATA P,327,235,D,335,232 

5530 DATA P, 143,191, D, 239, 191, 0,255,207,0, 127,207,0, 143 

,191,0,143,111,0,239,111,0,239,191 

5540 DATA F, 1,1 

5550 ' CHEZ MARCHY 

5560 RESTORE 5590 

5570 EOSUB 7160 

5580 SOTO 5830 

5590 DATA P,267,253,D, 287, 255,0,291, 253,0,287, 239,0, 279 

, 231, D,271, 227, 0,263, 229 

5600 DATA P, 265, 230, D, 255, 231 , D, 255, 239,0, 264,241 

5610 DATA P, 263,237,0, 267, 239,0, 271, 237,0,267, 235,D, 263 

,237 

5620 DATA P,263,253, 0,281, 263,0, 283, 261, D,281, 269, 0,263 

,253 

5630 DATA P, 275,257,0, 277, 255 

5640 DATA P, 255,251, 0,257, 255,0,237,263,0, 235,257, 0,237 

,259,D,255,251 

5650 DATA P,259,255,D,261,259,P,259,255,D,259,259,P,259 

,255,D,257,259 

5660 DATA P,251,253,D,249, 251, D, 247, 243,0,239, 247 

5670 DATA P, 275, 231, 0,268,219,0,263, 223, D, 255, 225,0,253 

, 223,0,243,215,D,241, 205,0,243, 199, j,267, 203, 0,267,201, 

D, 254, 192,D,255, 191, 0,239, 187, D,241,189,D,235, 187 

5680 DATA P, 255,215,0,253,199 

5690 DATA P,255,191,D,241, 173,0,231, 175,0,223, 183,D,215 

, 191, D, 207, 203,0,205, 207, D,200,221, 0,197,221, 0,191, 223 

5700 DATA D, 1 B9, 231 , D, 189, 239, D , 1 91 ,243, D , 195. 247, D, 204 

,239,0,207,223 

5710 DATA P,275,269,0,283,279,D,279,287,D,255,299,D,239 

,297,0,223,287 

5720 DATA 0,207,271, D, 199,255, D, 193,247 

5730 DATA P, 263, 199,0,287,191,0,301,175,0,307,159,0,319 

,127,0,323,111 

5740 DATA P,203,215,D, 191,207,0,167,191,0,147,175,0,143 

, 159, D, 127,111, 0,323,111 

5750 DATA P,215, 191,0,221, 159,0,225, 143,0,237, 125,0,243 

,111 



m 



>PF 


5760 DATA P.263, 195,0,263, 127,0,257,111 >EH 




5770 DATA P,239,175,D,225,143,P, 239,175,0,263,151 >QB 


>PA 


5780 DATA F',237, 163,0,243, 143,0,237,125,P, 255,159,0,250 >PB 




,143,0,263,127 


>W 


5790 DATA P,207,223,0,215,233,D, 211, 253,0,205, 253,0,207 >BU 


>VA 


,271 


>PU 


5800 DATA P,255,235,0,253,235,D,243,223,D, 239,211, 0,237 >PK 




,207,0,235,199 


>EV 


5810 DATA P, 263, 219, 0,263, 217, 0,255, 215,0,241, 207 >PG 


>PV 


5820 DATA F,0,0 >RJ 




5830 MOVE 241,256:FILL 1 >RN 


>NC 


5840 MOVE 245,206:FILL 1 >RN 




5B50 MOVE 175, 159:FILL 1 >RZ 


>UB 


5860 MOVE 271,175:FILL 1:M0VE 241, 159:FILL 1 >KQ 


>qx 


5870 MOVE 208,240:FILL 1 >RN 


>EV 


5880 MOVE 277,263:FILL 1 >RB 


>QR 


5890 TITREl*="Qiez MARCHY..." >ZX 


>EE 


5900 0UEST=1:EST=0:N0RD=0:5UD=0 >BV 


>VE 


5910 RETURN >FJ 


>VY 


5920 ' PLACARD OUVERT >YJ 


>TF 


5930 CLS *3:CLS #5 >LM 




5940 RESTORE 6000 >LZ 


>RK 


5950 60SUB 7160 >YF 


>YH 


5960 TITRElt="Le placard est ouvert ! " >PF 


>MC 


5970 QUEST= 1 : EST= 1 : NORD= 1 : SUD=0 >BE 


>YD 


5980 IF LEGION=0 AND PLC=0 THEN LOCATE #3, 13, 9: PRINT #3 >JL 


>PB 


, LEGION» 


>CG 


5990 RETURN >GG 




6000 DATA P,431, 271, 0,431,303, 0,447, 319, D.207, 319,0,223 >BR 


>PE 


,303 


>BC 


6010 DATA P,223,303,D, 223,271 >VG 




6020 DATA P,223,303,0,431,303 >VE 


>BV 


6030 DATA P,207, 111, 0,207, 255,0,239,287,0, 415,287,0,447 >PR 




, 255, D, 447, 111 


>«J 


6040 DATA 0,207, 111, P, 239, 111, 0,239, 287, P.415, 111,0,415 >BP 


>PD 


,287 




6050 DATA F, 1,1 >RG 


>PN 


6060 ' COFFRE OUVERT >YE 




6070 CLS #3: CLS #5 >LH 


>QM 


6080 RESTORE 6150 >LB 


>BP 


6090 GOSUB 7160 >YB 




6100 TITRElt="Le coffre est ouvert !" >NL 



6110 0UEST=O:EST=l:N0RD=0:SUD=l 
>HG 6120 IF MAIL=0 AND PLM=0 AND DOM=0 THEN LOCATE (3,11,6; 
;>ZF PRINT #3,MAIL* 

6130 IF MAIL=0 AND 0UV=1 AND DQM=0 THEN PRINT #6, "Tiens 
>PL ,un maillet !" 

6140 RETURN 
M 6150 DATA P, 399, 351 , D, 255, 351 , D, 223, 319, D, 367, 319, D, 399 

,351 
>ED 6160 DATA P, 223, 319,0,239, 303,0,351, 303,0,367,319 
>P« 6170 DATA P, 239, 303,0,239, 175,0,351, 175, 0,351,303 

6180 DATA P,239,175,D,223,159,D,367,159,D,351, 175,0, 399 
>CD ,223,0,399,351 

6190 DATA P, 399,223,0,351, 175 
>B« 6200 DATA P,367,159, 0,415,207,0, 399,223 

6210 DATA P,239,303,D,223,303,D,175,271,D,175,143,D,191 



>PH 



>FE 

>BL 

>QB 
>8C 
>PZ 

>«E 
>EB 
>PC 
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,143,0,239,175 




6690 SX=SX+1 


>KB 


6220 DATA P, 191, 143,0,191, 271, D,239,303,P, 19Î , 271, D, 17! 


>UM 


6700 PRINT #6, "Cette -fois, je fais un reset,et .je ne" 


>JQ 


, 271, P, 111, 239,D, 175,239, P,399, 239, 0,511, 239,F, 1,1 




6710 PRINT #6, "ris plus du tout !!!" 


>JY 


6230 ' LE JOURNAL 


>YD 


6720 PRINT #6, "AH ! AH ! AH ! ADIEU !!!" 


>FC 


6240 CLS #3: CLS #5 


>LB 


6730 FOR 1=1 TO 5OO0:NEXT 


>TV 


6250 RESTORE 6360 


>LD 


6740 CALL 


>PC 


6260 GOSUB 7160 


>VA 


6750 REGTORE 6970:SYMB0L AFTER 170:F0R 1=170 TO 173 


>UN 


6270 TITREl*="Les nouvelles fraîches!" 


>av 


6760 REflD A,B,C,D,E,F,G,H 


>TR 


6280 0UEST=1:EST=!:N0RD=1:SUD=1 


>BA 


6770 SYMBOL I,A,B,C,D,E,F,G,H 


>XE 


6290 MOVE 175,311:FILL UMOVE 191,175:FILL 1:M0VE 303,1 


>HD 


67B0 NEXT 


>MC 


43:FILL 1 




6790 LESI0NJ=CHR*(170)+CHRlU71)+CHR«(B)+CHR$(B)+CHR$! 


>DC 


6300 LOCATE #3,B,1:PRINT #3, "PflRIS-NEWS" 


>HE 


0)+CHR$(173)+CHR$(172) 




6310 LOCflTE #3,12,7:PR1NT #3, "Ce soir 20h30"; 


>PG 


6800 FOR 1=174 TO 177 


>NL 


6320 LOCflTE #3,12,B:PRINT #3," GRAND DEBAT"; 


>«M 


6810 REflD fl,B,C,D,E,F,G,H 


>TM 


6330 LOCATE #3,12,9:PRINT 13," télévise !"; 


>PE 


6B20 SYMBOL I,fl,B,C,D,E,F,6,H 


>XA 


6340 LOCflTE #3,12,11:PRINT »3,"MflRCHY-BARZ0U"; 


>Q6 


6830 NEXT 


>LJ 


6350 RETURN 


>FH 


6B40 PEIG$=CHR» ( 174) +CHRI ! 175) +CHR* (8) +CHR* (B) +CHR* ( 10 


>AJ 


6360 DATA P,lll, 319,0,511, 319, 0,511, 303,D,111,303,D, 111 


>BD 


+CHR*(177)+CHRt(176) 




,319 




6850 FOR 1=178 TO 181 


>NQ 


6370 DATA P, 1 43, 255, D, 255, 255, D, 255, 1 1 1 , 0,143,111, 0,143 


>BX 


6B60 READ A,B,C,D,E,F,B,H 


>TT 


,255 




6B70 SYMBOL I,fl,B,C,D,E,F,G,H 


>XF 


6380 DATA P, 287, 159, D,495, 159.D, 495, 127,0, 287,127,0,267 


>CG 


6880 NEXT 


>MD 


,159 




6890 GAT0*=CHRt!178)+CHR$U79)+CHR$(8)+CHR*(B)+CHR$!10 


>ftU 


6390 DATA F, 1,1 


>TD 


+CHR*U81)+CHR$(1B0) 




6400 CLS #2 


>LF 


6900 FOR 1=182 TO 185 


>NK 


6410 CLS *3 


>LH 


6910 READ A,B,C,0,E,F,G,H 


>TN 


6420 RESTORE 6540 


>LC 


6920 SYMBOL I,A,B,C,D,E,F,G,H 


>XB 


6430 GOSUB 7160 


>XK 


6930 NEXT 


>LK 


6440 PRINT #5, "Dans l'urne..."; 


>BZ 


6940 RANC0N*=CHR$(36)+CHRt(36)+CHR*(36HCHR*(36)tCHR$(3 >Bfl 


6450 PRINT #6, "Le terroriste vous rend vos 500" 


>BU 


6) 




6460 PRINT #6, "signatures" 


>ZM 


6950 MAIL*=CHR* ( 182) +CHR$ (183) +CHR» (8) +CHR* (B) +CHR* ( 10 


>AE 


6470 FOR t=l TO 3000: NEXT 


>TF 


+CHR*(1B5)+CHR*(184) 




6480 PRINT #6, "Il ne vous reste plus qu'à aller " 


>DV 


6960 EF*=" "+CHR*(B)+CHR$(B)+CHR*(10)+" " 


>HD 


6490 PRINT #6, "vous inscrire..." 


>FR 


6970 DATA 255,31, 21, 21, 21, 21, 2i, 13 


>ZN 


6500 PRINT t4,"<espace> POUR CONTINUER" 


>LF 


69B0 DATA 255,248,168,168,168,168,168,174 


>GV 


6510 CLEAR INPUT 


>LQ 


6990 DATA 140,192,128,44,32,32,44,128 


>CC 


6520 WHILE INKEY»<>" ":WEND 


>HA 


7000 DATA 5,3,1,2,4,4,2,1 


>RF 


6530 CftLL 


>NK 


7010 DATA 0,0,1,3,7,15,31,43 


>UT 


6540 DATA P,175,111,D, 175,191, D,2S7,191, 0,255, 239, 0,415 


>BB 


7020 DATA 15,124,240,132,128,144,72,34 


>CY 


,239 




7030 DATA 144,72,32,144,64,0,0,0 


>XY 


6550 DATA 0,383, 191, 0,495,191, 0,495, 111, 0,175,111 


>PH 


7040 DATA 60,114,121,100,210,201,132,128 


>EW 


6560 DATA P,271, 239, 0,207, 303.D, 255, 351, 0,319,351 


>QD 


7050 DATA 0,0,1,1,7,4,4,31 


>RQ 


6570 DATA 0,399,271, 0,367,239 


>WF 


7060 DATA 0,0, 128, 128,224, 32,32,243 


>AF 


6580 DATA F, 1,1 


>TE 


7070 DATA 8,246,8,255,1,255,1,255 


>YK 


6590 SX=0: PRINT #6, "VOUS N'AVEZ PAS LA RANÇON DEMANDEE. 


>GJ 


7080 DATA 16,31, 16,255, 128,255, 128,255 


>DH 


.." 




7090 DATA 56,63,63,63,63,57,1,1 


>XN 


6600 PRINT #6, "JE N'AIME PAS QUE L'ON SE MOQUE DE MOI ! 


>CZ 


7100 DATA 28,252,252,252,252,156,128,128 


>EL 


" 




7110 DATA 128,128,128,128,128,128,128,128 


>FJ 


6410 FOR T=l TO 1000: NEXT 


>TZ 


7120 DATA 1,1,1,1,1,1,1,1 


>gc 


6620 PRINT #6, "TANT PIS POUR VOUS..." 


>GJ 


7130 SYMBOL 190,0,14,4,10,14,32,44,128 


>DZ 


6630 PRINT #6,"ADIEU,...PRESIDENT,AH,AH,AH !!» 


>RH 


7140 CUt=CHR«(190) 


>MM 


6640 FOR 1=1 TO 50 


>LB 


7150 RETURN 


>FG 


6650 DUT !(BC00,4:0UT 4BD00,35:F0R T=l TO 50;NEXT:0UT B 


>VD 


7140 READ A$,al,bl 


>LV 


C00,4:0UT &BD00,3B 




7170 IF a*="F" THEN RETURN 


>UP 


6660 GOSUB 610 


>QE 


7180 IF fl«="P" THEN PLOT fll,Bl 


>WC 


6670 NEXT 


>MA 


7190 IF fl$="D" THEN DRAW fll.Bl 


>«X 


6680 IF SX=4 THEN 6700 EJ-SE SX=SX+1:G0T0 6640 


>MU 


7200 GOTD 7140 


>NAa 
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Duchet Computer 



L t un logiciel de PAO, 
| un ! Siren nous appor- 

fcpte sa contribution au 
domaine très réservé de la 
publication assistée par ordi- 
nateur. Que faut-il posséder 
pour obtenir la page né- 
cessaire à votre accomplisse- 
ment rédacto-imprimo-journa- 
listique ? C'est très simple : un 
6128 même d'occasion ou un 
464 "gonflé" constitueront le 
support de vos délires calligra- 
phiques. Une souris type AMX 
30 complétera délicieusement 
l'ensemble en lui apportant 3 
touches indispensables de con- 
vivialité. 

Mais bien sûr cet accessoire 
animalier n'est pas forcément 
en votre possession et les tou- 
ches du curseur et celles du 
pavé numérique peuvent sup- 
pléer à l'absence de la bêbête 
à boule. Sur le premier écran, 
grandiose de dépouillement et 
de simplicité (ce ne sont pas 
forcément des défauts), la 
page réservée à l'observation 
du résultat final. Sur le côté 
dans un grand rectangle sont 
inscrites les différentes options. 
Parmi celles-ci on trouve 
MENU qui, comme son nom 
l'indique, vous transporte 
jusqu'au menu principal ou 
bien à l'un des menus secon- 
daires. 

D'ailleurs l'écran de départ est 
l'une des "branches"de l'ar- 
borescence. 

Si l'on déplace le curseur, il se 
meut dans la limite de l'écran 
de présentation. La feuille pré- 
sentée est au format A4 verti- 
cal mais vous pouvez obtenir 
d'autres formats : A4 horizon- 
tal et une bande horizontale. 
Pour sélectionner une de ces 
options, vous utilisez soit la 
souris (le plus confortable) soit 
les touches du clavier. 
En effet, à chaaue option : 
MENU, projet, bloc et nou- 
veau dans le cas présent, sont 
associées des lettres. Les pos- 
sesseurs de souris n'ont pas à 
se préoccuper de ce genre de 
chose puisque la sélection est 
entièrement contrôlée par 
l'animal. 



Voyons en détail ce qui nous 
est proposé dans ce premier 
menu : nouveau, comme indi- 
qué plus haut, permet le chan- 
gement de format ; (attention 
cette option efface également 
tout ce qui était présent sur 
l'ancien format). 
Bloc autorise 3 opérations sur 
la feuille entière : effacement 
d'un bloc, copie (donc repro- 
duction) et mouvement (l'an- 
cienne position est effacée). 
On aurait pu remplacer "pro- 
jet" par brouillon. En effet, 
vous avez sans doute remar- 
qué que les revues sont cons- 
tituées de colonnes, de para- 
graphes, d'encarts etc. La 
page est donc construite mor- 
ceau par morceau. Cela exclut 



donc une construction directe 
sur l'écran de la page. Il est 
même préférable de dessiner 
sur une feuille la forme géné- 
rale et la disposition des élé- 
ments avant de commencer les 
opérations sur l'écran. Ainsi 
vous n'aurez plus qu'à tenter 
d'obtenir les effets désirés au 
lieu d'avoir en permanence la 
construction finale en tête. 
D'ailleurs, vous constaterez 
bien vite qu'il s'agit là d'une 
obligation technique : l'écran 
de l'Amstfad ne présente pas 
une assez grande surface pour 
que l'on obtienne à la fois une 
page entière et une résolution 
graphique acceptable. Donc 
Poptîon projet nous propose 
tout d'abord de définir la 
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Exemple d'impression en 
"gras" - 1 ligne 



fenêtre de travail. Cette fenê- 
tre correspond à la taille d'un 
écran réel. Vous déplacerez 
donc un rectangle à la force de 
la souris jusqu'à l'endroit 
voulu. A propos de déplace- 
ment, il peut vous sembler un 
peu lent, mais un appui sur la 
touche CONTROL (ou CTRL) 
accélérera quelque peu le 

Processus, 
ne fois satisfait, un petit 
"clic" et un nouvel écran ainsi 
que de nouvelles options ap- 
paraissent. 

Au bas de l'écran de travail un 
bandeau contient les "icô- 
nes". Il ne s'agit pas ici des 
symboles utilisés par GEM 
mais de petits dessins chargés 
d'illustrer vos pages ou d'ap- 
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porter de nouvelles polices de 
caractères. Passons en revue 
les nouvelles options : ZOOM 
est tout à fait parlant. Après 
définition d'une zone de tra- 
vail. L'intérêt du zoom réside 
non seulement dans l'agran- 
dissement de la zone mais 
aussi dans la possibilité de tra- 
vailler en demi-pixels. Ceci 
permet d'atténuer l'effet 
"d'escalier" propre aux 
diagonales. 

Bloc trace un rectangle "élas- 
tique" c'est-à-dire que celui-ci 
peut-être étiré afin d'occuper 
la surface désirée. 
Vous rencontrerez alors un 
mode de déplacement propre 
à Oxford : une croix est pla- 
cée sur une des extrémités de 
la figure. Lorsque vous dépla- 
cez la souris, l'objet est 
"déformé" dans une direction. 
En appuyant sur la touche cen- 
trale, la croix "saute" à l'au- 
tre extrémité et il est alors pos- 
sible d'étirer la figure dans 
cette autre direction. Ceci est 
assez déroutant au départ, 
mais finalement assez prati- 
que. Une fois la surface défi- 
nie, il est possible de l'effacer, 
de la déplacer, de la copier et 
de la stocker. Le déplacement 
d'un bloc, à la différence de la 
copie, efface l'ancienne posi- 
tion du dessin. 
L'option stocker est utilisée par 
la fonction glue. Attention le 
bloc en question ne doit pas 
être trop grand sinon un mes- 
sage d'erreur apparaît. Puis, 
grâce à glue, I objet pourra 
être placé n'importe où sur 
l'écran et ceci en vidéo inverse 
ou normale avec inversion la- 
térale ou horizontale. Nous 
passerons rapidement sur les 
fonctions de tracés de figures : 
rectangle, cercle ovale, trian- 
gle, ligne et angle (uniquement 
les angles à 90°). 
Icône sélectionne un motif foui, 
oui celui qui est encadré dans 
le bandeau inférieur) et la sou- 
ris le place ensuite à l'écran. 
Ces icônes sont aussi utilisées 
par l'option remplissage pour 
"farcir" le texte). Eh oui, car 
il est possible de remplir des 
surfaces selon 3 modes : noir, 
blanc ou motifs (comprenez 
icônes). Les icônes sont affi- 
chées dans le bandeau infé- 
rieur par "jeu". Il y a 3 jeux 
différents présents simultané- 
ment en mémoire. Ces icônes 



constituent également les "fon- 
tes" ou polices de caractères. 
Vous trouverez sur le disque 
des jeux de caractères tout 
prêts. Mais si cela ne vous con- 
vient pas, il vous reste la pos- 
sibilité d'éditer vous-même 
votre propre police et cela 
grâce à un sous-menu. Il y a 2 
tailles 16x16 et 24x24. 
Vous pouvez utiliser ces deux 
tailles pour créer des minuscu- 
les et des majuscules. Lorsque 
votre œuvre sera prête il vous 
faudra la sauver en utilisant le 
menu FICHES qui autorise la 
sauvegarde et le chargement 
de 2 types de fichiers, les IC 

ipour les icônes) et les DR 
pour les blocs graphiques). 
Une fois les fontes et les des* 
sins créés, les textes placés (à 
ce propos, il faut noter que 
l'entrée de texte n'est pas par- 
ticulièrement aisée puisqu'elle 
se fait sans éditeur), il ne reste 
qu'à imprimer tout cela. Le 
menu IMPRIME vous offre 3 
tailles d'impression : 100 %, 
50 % et 25 % ainsi que plu- 
sieurs qualités de sorties léger 
ou grand format normal ou 
uneligne. En mode 100%, 
option gras et une ligne, l'im- 
pression d'une page demande 
environ 1 heure. Le nombre de 
copie est paramétrable et va 
de 1 à X (c'est-à-dire jusqu'à 
un arrêt par l'appui sur la tou- 
che "ESC")'. 

Le driver fonctionne avec les 
imprimantes compatibles 
EPSON. Les exemples de cet 
article ont été tirés sur une 
CITIZEN 120 D. Si votre 
imprimante est d'un genre un 
peu "exotique" il faudra uti- 
liser le programme PRINTER 
présent sur la disquette. (Si 
vous possédez une DMP-1 
votre cas est insoluble, désolé 

i). 

Enfin pour finir ce tour d'hori- 
zon, une RSX intitulée CON- 
VERT vous permet de transfor- 
mer vos écrans (en MODE 1 
ou 2) en images compatibles 
avec Oxford PAO. 
Vouloir faire de la vraie PAO 
sur un Amstrad est peut-être 
un peu illusoire surtout lorsque 
l'on compare ses performan- 
ces avec celles affichées par 
les différents constructeurs : 
Apple, IBM, Atari, mais peut- 
être aec Oxford PAO 
prendrez-vous goût à la mise 
en page. 
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Ïean-Plerre PETIT est directeur de recherche au CNRS. Il est l'auteur d'un logiciel de CAO de 

120 Ko Intitulé AMSTRAD 3D, assorti d'un livre du même nom, édité par PSI. Le logiciel a été 

délibérément mis dans le domaine public, c'est-à-dire que vous pouvez le copier sur une 

disquette AMSTRAD CPC en toute tranquillité chez un revendeur ou un ami. 

Ce livre est un gros mode d'emploi du logiciel pour non programmeur. 

Mais ce programme est riche de ficelles de programmation, liées à l'imagerie 3D. 

Dans cette suite d'articles, Jean-Pierre PETIT explique au lecteur toutes ses astuces, ce qui 

lui permettra de construire lui-même son propre programme de CAO. 



INTRODUCTION 

Dans cette suite d'articles nous donnons, 
les uns après les autres, les sous-program- 
mes qui constituent, comme les pièces d'un 
Lego, les éléments d'un programme de 
CAO. Ici nous allons donner les sous-pro- 
grammes correspondant aux rotations d'ob- 
jets et de blocs. Mais ce qui est beaucoup 
plus intéressant, nous allons évoquer la 
possibilité de réaliser des opérations com- 
binées. Ici nous donnerons l'exemple d'une 
translation et d'une rotation simultanées, 
suivies d'une soudure (fusion) sur l'objet 
initial. Imaginons une structure moléculaire 
périodique, analogue à une molécule 
d'ADN. Ce type d'opération permettra de 
construire, reçu rsive ment, cette molécule. 

Nous allons comme d'habitude donner des 
éléments de base, tels les listings MOD1 
(pour l'entrée dans la chaîne de traitement) 
et VOIR pour pouvoir juger du résultat. 



ROTATIONS 

FONDAMENTALES. 

ORIENTATIONS 

DESAXES. 

Nous considérerons des rotations qui s'ef- 
fectueront selon des axes parallèles aux 
axes principaux, définis par le TRIEDRE 
DE REFERENCE (OX.OY.OZ). Sur cha- 



Certains lecteurs semblent avoir eu 
des difficultés à se procurer la dis- 
quette AMSTRAD-3D. En plein ac- 
cord avec l'éditeur, vous pouvez, le 
cas échéant, adresser une disquet- 
te AMSTRAD vierge à l'auteur avec 
50 F pour la port, ou plus simplement 
90 F sans la disquette à l'adresse 
suivante : 

Jean-Pierre PETIT, Chemin de la 
Montagnère, 84120 Pertuis, Vauclu- 
se. 



cun de ces axes il faut impérativement défi- 
nir un sens positif de rotation, de manière 
à pouvoir spécifier à l'ordinateur une ro- 
tation directe (angle positif) ou inverse (an- 
gle négatif). Il suffit d'imaginerque l'on fixe 
trois tire-bouchons sur ces axes, dont le 
manche est vers l'origine et dont la partie 
pointue est orientée selon les vecteurs OX, 
OY, OZ. Le sens positif de rotation sera 
donné par le sens de vissage des tire-bou- 
chons. (Figure 1). 



Signalons que nous pouvons désormais 
vous fournir une version tournant sur 464 
avec lecteur externe, ceci grâce aux modi- 
fications apportées. En effet CHAIN ne mar- 
che pas dans le 464- Il a donc fallu le sim- 
uler en stockant et en rechargeant les fi- 
chiers résidents à chaque transfert. Par 
ailleurs il y a quelques différences dans 
les syntaxes respectives (effaçage fichiers, 
basculement de pages-écrans). Problème 
résolu grâce à l'obligeance de monsieur 
Vibert, de Garches. Remarque : nous 
n'avons pas de version sur 664 disponible. 
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qui nous envoie au sous-programme 
37000. On commence par initialiser à zéro 
les traces de l'axe de rotation (XAXE, 
YAXE, ZAXE). On définit ensuite l'axe 
choisi et la valeur de l'angle s'y référant. 
Le recours à un "flag bloc" FB permet- 
d'encadrer l'appel de sous-programmes 
43000, 42000, 41000 (selon l'axe choisi). 
L'appel de sous programme 33000, en 
cas de manipulation de bloc, débouche 
sur le restockage après un questionne- 
ment sur l'éventuel changement de nom 
du fichier. 

Cet ensemble de sous-programmes con- 
sacrés à la rotation ne pose pas de pro- 
blème particulier. Ils ne font que traduire 
des formules mathématiques standard et 
un lecteur peu familiarisé avec les ma- 
thématiques peut très bien les utiliser et 
les manipuler telles quelles. 



On conviendra de donner aux rotations 
s'effectuant selon des axes parallèles aux 
axes principaux des noms particuliers. 
Imaginez que vous placiez une maquette 
d'avion selon l'axe OX, dont les ailes 
seraient parallèles à l'axe OY et dont la 
queue serait à l'origine. (Figure 2) 
Conventionnellement on appellera l'angle 
de rotation selon OX l'angle de ROULIS, 
selon OY, l'angle de TANGAGE, et selon 
OZ l'angle de LACET. 
il est clair que la définition d'une rotation 
passera par la saisie de trois quantités : 
l'angle en valeur algébrique et les coor- 
données de la TRACE de l'axe sur le plan 
perpendiculaire à celui-ci, passant par l'ori- 
gine : figure 3. 
Il faudra donc envisager des procédures 



de saisie de ces quantités, bien apparen- 
tes dans le listing ci-après, se référant à 
MOD2. On remarquera l'astuce qui per- 
met à l'aide d'un flag-bloc d'opérer indif- 
féremment des rotations d'objets ou de. 
blocs. Donnons le listing de MOD2 et com- 
mentons-le. 

Commentaire : 

Dans cette section nous avons besoin de 
beaucoup de choses. Comme nous nous 
proposons d'opérer indifféremment sur des 
objets et sur des blocs nous avons besoin 
de sous-programmes se référant aux blocs. 
Dans cette section MOD2, attaquons par 
g - manipuler un objet 
et continuons par 
b- Rotations 



OPERATIONS 

COMBINEES 

Voici un concept nouveau et intéressant. 
Nous avons déjà passé en revue les diffé- 
rentes manipulations d'objets ou de blocs, 
se référant aux différentes transformations 
géométriques translation, rotation, affi- 
nité, homothétie, symétrie. Mais l'engen- 
drement d'objets peut combiner simultané- 
ment plusieurs de ces transformations. 

Prenons par exemple un objet qui est une 
simple marche d'escalier. Le lecteurfabri- 
quera cette marche à l'aide de chaînes, 
en utilisant le matériel mis à sa disposi- 
tion dans la section MOD1. Pour fabri- 




ROULiS 

TANGAGE Figure 2 : angles de roulis, 



lacet. Figure 3 : définition des paramètres d'une rotation selon OX. 

J 
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Figure 4 : escalier à 2 marches. 




Figure 5 : escalier à 12 marches. 



quer un escalier en colimaçon, il faudra 
opérer simultanément une rotation et une 
translation. On obtiendra alors la seconde 
marche de l'escalier. On pourra envisager 
de la souder par FUSION. (Figure 4). 

Il est clair que si on pouvait rééditer cette 
opération N fois, on créerait un escalier 
à N marches. (Figure 5). 

La figuré 6 illustre la capacité maximale 
d'AMSTRAD-3D à gérer des chaînes, 
dans un objet unique (50 chaînes). 

Ce travail a été fait grâce à une routine 
intitulée TRANSLATION-FUSION SUR 
OBJET qui correspond dans MOD2 à la 
sous-option 17000-17499, à laquelle on 
accède soit parg-Manipuler un objet, soit 
par h-Fusions diverses. 

Voici la suite d'actions correspondant à 
l'engendrement de l'escalier. Vous aurez 
au préalable créé à l'aide de MOD1 l'objet 
MARCHE, qui peut être composé à l'aide 
d'une chaîne unique. 

g - Manipuler objet ou bloc 

Manipuler 
a - Objet 

g - Translation-Rotation-Fusion sur ob- 
jet 

TRANSLATION-FUSION SUR OBJET 
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Objet résident MARCHE 
On garde ?0 




Translation ? 
Vecteur translation : 
DX = ?0 
DY = ?0 
DZ = ? .3 
Rotation ? 

ROTATION PAR RAPPORT A AXE PA- 
RALLELE A: 
a - OXaxede roulis 
b - OY axe de tangage 
c - OZ axe de lacet 
Votre choix ? c 
Angle de lacet, degrés : ? 20 
Trace dans le plan XOY 
XAXE »? 
YAXE - ? 

Nombre maximal d'éléments 49 
Sinon, fusion sur bloc... 
Nombre d'éléments ? 1 2 
On voit qu'on a la latitude de définir ou 
non un vecteur translation, puis un axe 
et un angle de rotation. L'ordinateur in- 
dique alors le nombre d'éléments qui peu- 
vent fusionner, compte tenu de la capacité 
de gestion de chaînes (cinquante), définie 
en tête de MOD1 , sur la ligne de dimen- 
sionnement. 

TRANSLATION- 
ROTATION-FUSION 
SUR BLOC 

Il s'agit d'un outil puissant. La disquette 
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de l' AMSTRAD ne vous permettra pas de 
l'exploiter réellement. En effet la capacité 
théorique du bloc est de 30 objets de 50 
chaînes de 12 segments, ce qui fait.... 
1 8000 segments t 

On sait que le stockage d'un fichier sur 
disquette peut se faire à travers une chaîne 
de huit caractères. Ici on limitera le nom 
du bloc à six caractères, ce qui permet- 
tra de rajouter des caractères numériques 



par concaténation, en nommant ainsi les 
objets créés. 

Imaginons un ensemble que nous aime- 
rions appeler USINE. C'est ainsi que nous 
nommerons le bloc. L'engendre ment de 
la séquence d' objets du bloc, par transla- 
tion-rotation effusion sur ce bloc USINE 
s'accompagnera du stockage des objets 
USINE1, USINE2, USINES, etc jusqu'à 
USINE12, USINE13 etc. Dans la limite 



de possibilité de gestion d'objets dans un 
bloc, et de la place libre sur disquette, 
bien sûr. Supposons que notre objet de 
départ soit un hall d'usine présent sur dis- 
quette sous le nom HALL. Vous remar- 
querez que la toiture aura probablement 
été engrendrée par une TRANSLATION- 
FUSION sur objet et fusion sur le paral- 
lèlipipède support. (Figure 7). 

Le dessin de la figure 8 représente ce 
que vous obtiendrez en dessinant le bloc 
USINE après une opération TRANSLA- 
TION-FUSION SUR BLOC ( mais on pour- 
rait aussi introduire une rotation ). Vous 
ne pourrez pas tirer d'image de ce bloc 
avec le matériel donné dans cette leçon 
puisqu'il vous faudrait une version de DES, 
donnée dans de précédents articles, dont 
nous n'avons pas fourni le listing, pour 
ne pas alourdir l'article. Le lecteur décou- 
vrira par lui-même les astuces de program- 
mation, pas toujours évidentes, qui cor- 
respondent à cette portion (1 7500-1 7999) 
de MOD2. 

CONCLUSION 

Ce dernier dessin nous fait une fois de 
plus toucher du doigt les limitations gra- 
phiques de l'AMSTRAD, à l'excellent rap- 
port qualité/prix, mais qui ne peut pas don- 
ner plus que ce qu'il n'a. J'avais au départ 
tiré une image avec cinq bâtiments mais 
les éléments de l'arrière'-plan étaient en 
état de bouchage complet, ce qui n'aurait 
pas été le cas avec une table traçante. 
Nous améliorerons évidemment ce rendu 
graphique lorsque nous pourrons élim- 
iner les parties cachées* 



SERVEUR 
MINITEL 

N'oubliez pas 
36.15 code MHZ 

wou\(£Wf 
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*a*m'.;wv\ï 



♦ 



>RG 

>mk 

dans obi >BP 



•PM 



MOD1 * 1 4 

1 REM M0D1M4 13 AVRIL 38 

2 IF FD=! THEN 230: '* 

3 FM! L = - 1 : REM IflitialiSBf L (L+l chaines 
et ):'* 

4 BIM XT(49.12.>.YT(49.t2).ZTi49,12).N(49!,ELt(29!.C0'(29 
).GX(29I.GY(29).GZ<29).RE(29).XE«12!.YE(12).XEBIS!12!.Y 
EB1S(12).ST*(20):'* 

7 GOSUB 24000: REM Choisi des couleurs* 

10 CLS: '* 

15 PRINT'MENU PRINCIPAL" ; PRINT; * 

20 PRINT"a-Creer un objet":'* 

30 PRINT"b-Completer un objet":'» 

40 PRINT"c-Stoct:er un objet": * 

50 PRINT"d-Cha™r un objet": '* 

60 PRINPe-Gestion de blocs d'obiets":PRINT"f-Gestion d 

u cataioque":PRINT"q-Manipuler objet ou bloc":PRINT"h-F 

usions diverses":PRINT"i-":PRINT" j-Fichier objets*iitand 

ards":PRINT"k-Voir" 

70 PRINT "1-Creer une image":'* 

80 PRINT"«i-":PRINT"n-":PRiNT"o-":PRINT"o-": '* 

180 PRINPq-Quitter":'* 

195 IF EL* <> "" THEN L0CATE 22.21:PRINT"0bjet résident 

":L0CATE 22.23:PRINT EL*:'* 

197 IF LO-1 THEN L0CATE 31.23:PRINT L+l:" ch.":'* 

200 GDSUB 65000: REM Saisie caractère:'* 

205 IF C=ll THEN CHAIN"vTJIR*14": '» 

210 IF C=17 THEN END: '* 

220 IF C = 12 THEN CHAIN"DEStl4": * 

230 ON C GOSUB 9000.9010,8000.5000.21000.22000.64000.6 

4000.63000.20000: REM etc.... 

999 ilERA."*.bak":G0T0 10:REM Boucle MENU* 

1000 REM CREER UN BLOC ♦ 

1999 RETURN : '* 

2000 REM LECTURE BLOC * 

2999 RETURN:'* 

3000 CLS:PRINT"IIETRUIRE BLOC+OBJETS":* 

3999 RETURN:'* 

4000 CLS:PRINT"COPIE BLOC+OBJETS SUR AUTRE DISQUETTE":? 
RINT:'* 

4999 RETURN:'* 

5000 REM CHARGER UN OBJET: '♦ 

5999 RETURN: '* 

6000 REM STOCKAGE BLOC * 

6999 RETURN:'* 

7000 REM CHARGEMENT FICHIER BLOC * 
7999 RETURN: '* 

. 8000 REM STOCKAGE OBJET * 

8999 RETURN: '* 

9000 .REM CREER UN OBJET 



>DG 

m 



>oz 

?FP 

>zc 

>NX 
>¥K 

>FV 

>LH 

m 

>QC 

m 

>0C 
>KL 



>0E 

:>vd 

>0F 
>RC 
>QG 
>BF 
>0H 
>UF 

m 

>RT 



9005 L=-1:K=K+1:EL*!K)="":EL*="" >ZP 

9010 CLS:PRINT"CREER UN OBJET":PRINT >HN 

9020 PRINT'a-Creer chaîne Par chaine" >PL 

9030 PRINT"b-Objet de révolution" >KY 

9040 PRINT"c-Travailler sur un objet standard" >EV 

9050, PRINT"d-Creer un prisme" >DY 

9060 PRINT"e-Creer un cercle" >DN 

9070 F'RINT"f-Creer un arc de cercle" >MX 

9090 G05UB 65000: REM Saisie caractère >FQ 

9100 IF C>7 OR C =-51 THEN 9999 >VU 

9102 IF C<0 THEN 9000 >NR 

9110 ON C BOSUB 26000: REM, etc., >AL 

9999 RETURN M. 

14000 REM INCORPORER LA CHAINE A L'OBJET* >BX 

14999 RETURN: '* >XF 

18000 REM ARCTANGENTE* >RZ 

18999 RETURN: '* " :>XK 

20000 'FICHIER OBJETS STANDARDS * >CH 

20999 RETURN: '* >XC 

21000 REM GESTION DE BLOCS D'OBJETS* >WJ 

21999 RETURN:'* v >XD 

22000 'OPERATIONS SUR CATALOGUE * >CK 

22999 RETURN:'» >XE 

23000 'Erreur sur objet * >DA 

23999 CLS:PRINT"Obiet inexistant. . .":S0LIND 1.20:F0R tt» >TB 
TO 1000:NEXT:EL*iK)="":EL*=""::RESUME 10:'* 

24000 REM CHOIX DES COULEURS * >YD 

24999 RETURN:'* >XG 

25000 REM TRACE EN PLAN DE L'OBJET EXISTANT * >VF 

25999 RETURN: '* >XH 

26000 REM CREER DES CHAINES AU CLAVIER >FB 
26010 IF L=49 THEN PRINF'Trop de chaines.desole...":GOS >BP 
UB 65020: 60TD 26999 

26020 L=L+1: REM Incrementer effectif de chaînes >TU 

26025 CLS: PRINF'SAISIE CHAINES AU CLAVIER": PRINT >XR 

26030 INPUT"Nombre de segments ":N(L! m 
26035 IF N(L)>12 THEN PRINT "12 segments ma>:i !" : GOSU >ZH 
B 65020: 60T0 26025 

26040 FOR J=0 TO NIL!: REM Boucle de saisie de coordonn >JH 
ees point 



26060 INPUT"XT 

26070 INPUT"YT 

26080 INPUT'7T: 

26090 NEXT J 

26100 PRINT" 

C = 15 THEN 26025 

26130 PRINT" 

F C = 15 THEN 26010 

26999 RETURN 

27000 'COPIER ENSEMBLE STANDARD * 

27999 RETURN: '* 

28000 'DEGRAISSER UN BLOC * 

28999 RETURN: '* 

29000 'DETRUIRE UN BLOC * 

29999 RETURN: "* 

30000 'IDENTIFICATION OBJET * 



numéro 


':J+1 




>DE 


XT(L.J) 






>UK 


YTIL.J! 






>UN 


ZT(L.J) 






m 

>CB 




Une erreur ? 


: GOSUB 65020: 


IF >TG 



Ine autre chaine ?": GDSUB 65021 



>PH 
>DE 
>XK 
>DF 
>YA 
>DG 
>YB 
>CJ 
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30999 RETURN: '« 

31000 'IDENTIFICATION BLOC « 

31999 RETURN:'* 

32000 REM CREER UN CERCLE * 

32999 RETURN: '* 

33000 REM CREER ARC DE CERCLE* 

33999 RETURN: '* 

34000 REM CREATION OBJET DE REVOLUTION* 

34999 RETURN: '* 

35000 REM OBJET D'AXE OX* 

35999 RETURN: '* 

36000 REM OBJET D'AXE 0¥* 
34999 RETURN: '* 

37000 REM OBJET D'AXE 02:'* 

37999 RETURN: '* 

42000 ' COMPACTAGE BLOC * 

«2999 RETURN 

44000 REM CALCUL DE SX.GY.GZ et de RE * 

44999 RETURN: '* 

45000 REM ERREUR SUR BLOC * 

45999 SOUND 1.20;CLS:PRINT»B!oc inesifta«t.."!FOR Ha) 

TO 1000:NEXT :RESUME 10:'* 

54000 REM CREER UN PRISME* 

54999 RETURN: '* 

60000 REM DEFINITION DU TYPE DE SAISIE DE CHAINE PLANE* 

60999 RETURN: '* 

61000 REM SAISIE ECRAN* 
61999 RETURN:'* 

63000 CLS:PRJNT"Routine non encore creee":30UNB 1,20: F 
OR TT=0 TO 200: NEXT: '* 

63999 RETURN: '« 

64000 REM CHAINAGE SUR M0D2 

64999 CHAIN"M0D2I14 

65000 REM Saisie caractère* 

65010 PRINT:PRINT"Votre chois ;":'* 

65020 Ct=!NKEY*:IF C*="" THEN 65020: '* 

65030 C=ASC(C*!:'* 

65040 IF C>96 THEN C=C-96:G0TD 65535: '* 

•65050 IF C<96 THEN C=C-64: '* 

65535 RETURN: * 

VOI R 1*14 

! REM V0IR#!4 3 Jan 88 

2 IF FD = THEN CLS : PRINTPas d'accès direct a VOIR. 

..":PRINT:PRINT"Je vous renvois sur MODl\..":RUN"H0Bltl 

4":'* 

5 CLS : LOCATE 17.12 : PR1NT"V0IR... !I : '* 

7 IF L =-1 THEN PRINT:PRINT"Pas d'objet résident, reto 

ur sur M0Dl...,":ELt="":C=0:CHAIN"M0Dl#14":'* 

10 GOSUB 44000: '* 

20 BORDER 26*RND:CLS: '* 

25 IF EL* <> ■• THEN LOCATE 25.21:PR!NT"0b.iet résident" 

:LOCATE 25,23:PRINT EL*:PRINT:'* 

30 LOCATE 13,10 : PRINT» Desirei-yous un trace du tri 

edre ?":GOSUB 65020:'* 

7000 REM Représenter un objet * 

7010 AN = 20: '* 



•XD 
>CK 
>XE 
>UK 

m 

>XL 

>m 

>JS 
)XH 
>LQ 
>XJ 
>LR 
>XK 
>LT 
>YA 
>DB 
>PF 

m 
m 

>VB 
>MP 



>XK 
>VP 
>Nfl 
>klT 
>BF 
>BB 
>EK 
>DK 
>TB 
•«H. 



>EG 
>AJ 

>XF 
>0K 

m 



>ZN 

>TJ 



7040 XM = GX(K) + REIK! * 3.5:'* 

7050 YM = GY(K) t REIK! * 2.5:'* 

7060 ZM = GZ(K) + REIK) * 1.5:'* 

7080 XG = GXIK):YG=GY(K!:ZG=SZ(K!:'* 

7090 CX = XG - XM : CY = YG - YM : CZ e ZG - ZM: '* 

7100 DD = SDR (CX*CX * CY*CY ):'* 



I AND CZ > THEN TE = : Kl = PI / 2 : G 



THEN TE = : Kl =-PI / 2 :'S >HH 



THEN TE = 1.57 : GOTO 7210: '* 
.57 : GOTO 7210:'* 



GOTO 



7110 IF DD 

OTD 7210: 

7120 IF DD = AND CZ 

OTD 7210:'* 

7130 Kl = ATN ICZ/DD) 

7140 IF CX = AND CY 

7150 IF CX = AND CY < THEN TE 

7160 TE = ATN (CY/CX!:'* 

7170 IF CX < AND CY > THEN TE ■ PI + TE: '« 

7190 IF CX < AND CY < THEN TE = PI + TE: '« 

7190 IF CX < AND CY = THEN TE = PI: '» 

7200 IF CX - AND CY < THEN TE = - PI/2: '* 

7210 REM * 

7220 REM * 

7230 CT = CCS (TE! : ST = SIN !TE):'* 

7240 CK = COS (Kl) : SK = SIN (Kl):'* 

7250 XU = CK*CT : YU = CK*ST : ZU=SK: '* 

7260 XV = -ST i'W-CT : ZV = 0:'* 

7270 XW = - SK*CT : Ykl = - SK*ST : ZW = CK: '* 

7280 GOSUB 62000 : '* 

7290 IF C = 15 THEN GOSUB 14000 : GOSUB 17000 

18000: '* 

12000 REM Ob.iet deia présent en mémoire* 

12010 C0=1: '* 

12020- FOR I = TO L : FOR J = TO N(I): '* 

12030 GOSUB 15000: '« 

12040 NEXT J: NEXT I: * 

12050 C=0: '* 

12060 ÙSCREENC0PY,2.1:S0UND 1.50 : LOCATE l.l:PRINT"Har 

dcopy ?":GOSUB 65020: If C=15 THEN ÙSCREENCOPY, 1.2:CALL 

&A000:PRINT#B:PRINT#6 

12999 SOUND 1.200 : CHAIN"M0D1#!4": '* 

14000 REM SAUVEGARDE OBJET RESIDENT* 

14005 CO = 1: '* 

14010 OPENOUT"SAUVOBJ": '* 

14020 PRINT#9.C0(K).GX(K),SY(K!,GZ(K).RE(K),L:'* 

14030 FOR I = TO L: '* 

14040 PRINT#9, Nil):'* 

14050 FOR J = TO N(I):'* 

14060 PRINT#9,XT(I.J!^YT!I,J).ZT!T.J):'* 

14065 GOSUB 15000:'* 

14070 NEXT J : NEXT I:'* 

14080 CLOSEOUT:'* 

14999 RETURN: '* 

15000 REM Calcul et trace imaqe * 
15040 XL=XT(I,J)-XM:'* 
15050 YL=YT(I.J)-YM:'* 
15060 ZL=ZT(I.J)-ZM:'* 
15090 XA=XL*XU+YL*YU+ZL*ZU: '* 
15100 YA=XL*XV+YL*YV+ZL*ZV: '* 
15110 ZA=XL*X«+YL*YW+ZL*ZN: '* 



>UC 
>UE 
>U6 

>cv 

>FB 

m 

>vv 



■m 

>MC 
>ff 
. >PQ 
>DM 
>DL 
>AK 
>DU 
)FD 
>FE 
>YV 
>YQ 

m 

>VD 

m 

>L0 
>XG 

>HT 
>RJ 
,>ES 
>LV 
>PA 

m 



>FR 
>TK 
>UM 
>0X 
>MN 
>NL 
>PU 
>HA 
>LF 
>PV 
>LB 
>XF 
>ZK 
>PZ 
>PD 
>PH 
>YF 
>YB 
>Y6 
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t^y:xA^«»\\\\.vovA\;!v.vv\^iVx*; 






1512! ff KA=o ANC YA=0 WD ZA=0 THEN ZA=0,00t: 
15:22 H! = SSR!YA*YA+ZA*ZA!: '* 

15125 ff XA=0 THEN B=90:60T0 15127: '* 

15126 B=ATN(RD.'XHi :B=B*i80/F'I: '* 

15127 IF SA<0 THEN B=B+180 ; '* 

15130 IF ¥A=0 AND ZA=0 THE» A=90:G0T0 15180: * 

15140 IF M=0 AND VA ;-û THEN A=-90:B0T0 15180 

15150 IF ZA=0 AND YA-'O THEN 0=90: GOTO 55180: '* 

15160 A=-ATN(YA/ZA):A=A*1B0/PI :'t 

15170 IF ZA<0 AND YA >0 THEN A=A-iBO: * 

15172 IF ZA ::0 AND YA<0 THEN A=A+1B0: 't 

15174 IF .ZA AND YA =0 THEN A=1B0: * 

15180 X=B*SIN!A*PI/!BO! :Y=B*CDS(A*PI, 

15240 XE=313+X*300/AN :'* 

15250 YE=200tY*300/AN : '« 

15260' IF J=0 THEN PLOT XE.YE.CO:'* 

15270 IF JOO THEN DRAW XE.YE.CO. 0: l i 

15999 RETURN: '* 

17000 REM TRACE TRIEDRE * 

17005 CO = 3: * 

17010 QFENÏN'TRIEDRE":'* 

17020 INPUT#9,CD(Ki,BX,BY,SZ.RE,L: '* 

17030 FOR I = TO L: * 

17040 INPllT#9.NiIi:'* 

17050 FOR !■' TO Nil::'* 

17060 INPUT#9,XTiI,Ji.YT!I,Ji.ZT!l.j: 

17070 BOSUB 15000:* 

17080 NEXT J : NEXT I: '« 

17090 CLOSEIN: '* 

17999 RETORNi '* 

18000 REM RECHARBER ET DE33INER OBJE' 
1B005 CO = 3 : '* 
18010 DPENIN"5flLMJBJ' : '* 
18020 INPUT#9, CO(K) . BX (K) , BY (Ki , 
18030 FOR I = TO L: * 
18040 INPUT#9.NiI):'« 
18050 FOR j = TO Nil):* 
18060 INPUT#9,XT(I,J;,YT 
18080 NEXT J : NEXT W* 
18090 CLDSEIN: '* 
18100 ùERfl. "SAliVDBJ" : '+ 
18110 C = 0:'* 
18115 SOUND 1.100:'* 
18117 ÙSCREENCOPY, 2,1: SOUND 1,50 
dcopy ?": BOSUB 65020: IF 0=13 THEN ÙSCREENCOFY 
iA000:PRINT#8:FRINT#8 

18999 CHflIN"l10Dltl4":'* 

44000 REB Calcul de CG et de RE * 

44010 6X=0:6Y=0:EZ=0:N=0:RE(IO=0: '* 

44020 FOR 1=0 TO L: FOR J=0 TO NUS:'* 

44025 MWi'l 

44030 6X=GX+XT!I,J):'* 

44040 G¥=6Y+¥T(I,JS: '* 

44050 GZ=EZ+ZT(I.J): '* 

44060 NEXT J:NEXT W* 

44070 BX(K)=GX/N: '* 

44080 GY(K)=GY/N:'* 



>LN 
'>W0 



IK).RE(K) 



JTil, 



LOCATE l,!:PRINT"Har 
2:CALL 



>ZN 
>BY 
>BD 
>AG 
>LF 
>BB 

m 
m 

>CE 
>XB 
>TN 
>UE 
>TS 
>DT 
>HR 
>NT 
>PX 

m 

>LE 
>PZ 
>BK 
>XJ 
;GP 
>U6 
>TN 
>QE 
>HT 

:>nu 

>PY 
>HH 
>PA 
>CA 

>RA 
>HK 
>LB 
•CR 



m 
>xz 

>CE 
>AX 
>AE 
>PL 
>PQ 
>PV 

m 

M 



44090 SZ(K)=GZ/N: * 

44100 FOR 1=0 TO L:FOR J=0 TO Nil): * 

44110 R=SQR ((XT(!.J)-BX!IO)*iXTiI,J)-GXIK!S + 

Y!K))*iYT(I,J!-GYi(0) + iZT!I.JS-SZ(tO;*ïZTiï.j; 

'* 

#120 IF REIKKR THEN REIK)=R: * 

44130 NEXT J:NEXT I:'* 

44999 RETURN : * 

62000 REM CADRE * 

62010 CLS: '* 

62015 BORDER 14: '* 

62020 PLOT 0,0: ♦ 

62030 DRAW 639.0.3: '* 

62040 DRAW 639,399.3: ■* 

62050 DRAW 0,399.3:'* 

62060 DRAW 0,0.3:'* 

62070 CO = 3: '* 

62999 RETURN: '* 

65000 REN Saisie caractère * 

65005 PRINT: '*, 

65010 PRINT"Votre chois :":'* 

65020 C*="":C«=INKEÏ*:IF C*="" THEN 65020;'* 

65030 C=ASCiCt) : '* 

65035 IF C=13 OR C= 32 THEN C=27:G0T0 6506O: 

65040 IF C>96 THEN C=C-96:S0T0 65060:'* 

65050 IF C<96 THEN C=C-64: '* 

65060 SOUND 1.20,1:'* 

65535 RETURN: * 



>AB 
ïT(I,Ji-G >JH 
-BZiKiii: 

m 

>PF 
>XK 

m 

>NC 
>FG 

m 

>«L 

>NA 
/Fin 

>BF 
>UB 
>XJ 

m 

>KD 
>AP 
>BL 
>FA 
* >JC 
>DC 
)TB 
>MV 

:>wh. 



MOD2#l 4 

1 REM M0D2tl4 15 AVRIL 38 

2 IF FD=1 THEN 201 

5 SOUND 1,20: CL5:PRINT"PAS D'ACCES DIRECT A H0D2":PRIN 

T:PRINT"Je voue renvois sur M0D1...";RUN"N0D1#14 

10 CLS 

15 PRINT"NENU PRINCIPAL" :PRINT 

20 PRINT'VCreer un objet" 

30 PRINT'b-Completer un objet" 

40 PRIHTc-Stocker un objet" 

50 PRINT"d-Charqer un objet" 

60 PRINT"e-Gestion de blocs d'oboets":FRINT"t-Gestion d 

u cataloque":PRINT"q-Manipuler objet ou bloc":FRINT"h-F 

usions diverses":PRINT"i-":PRINT"j-Fichier objets stand 

ards":PRINT' , k-Voir M 

70 PRINT "i-Creer une intaqe" 

80 PRINT"«- !, :PRINT ,, n- il :PRÏNT l, o-"iPRINT"p-" 

180 PRINT"q-Quitter" 

195 IF a* O "" THEN LOCATE 22.2!:PRINT"0bjet résident 

":LOCATE 22.23:PRINT ELI 

197 IF LO-1 THEN LDCATE 31,23:PRINT L+li" rit." 

200 GOSUB 65000: REM Saisie caractère 

201 ÙERA,"*.BAK" 

205 IF C=ll THEN CHfiIN"VOIRti4 

210 IF C=17 THEN END 

220 IF C = 12 THEN CHAIN"DES»14 

222 IF C=ll THEN CHAIN"P17 

230 ON C GOSUB 64000.64000.8000,5000,21000.64000.11000 



m 

>LH 
?JZ 

m 

m 

>AE 
>BJ 

/DX 



>cn 

>PQ 
>UK 

>KC 

>PT 
>Eu 
MX 
>XB 
>NL 
M 
>UG 
>RJ 
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,12000,63000,04000 

999 SERA, "t.bak":CLS:G0TD 10:REM Boucle MENU* 

1000 REH CREER UN BLOC * 
1010 CLS : PRINPCREER BLOC ITOBJETS'sPRItW; '* 
1020 INPUP'Nom du bloc ";BLÎ: '* 
1030 INPUT "Nombre d'éléments M :E: '♦ 
1040 E=E-i: '* 
1050 FOR K=0 TO E: '• 
1060 PRINP'Objet numéro ":K+1: : * 
1070 INPUÏ EL*(KÏ:GOSUB 5020:REM Charger obiet * 
1090 NEXÎ K !'* 
1100 GOSUB 60ûO:RE« Stockage fichier-bloc * 

1999 RETURN : '* 

2000 REH LECTURE BLOC * 

2010 CLS : PRINPLECTURE BLOC":PRINT: * >sv 

2020 INPUP'Nom du bloc ";BL$:60SUB 7000:REM Charger Bio >GM 
c « 

2035 PRINP'Bioc ":BLt:PRÎNT: * 

2040 FOR K=0 TD E; '* 

2050 PRINT ELU»! * 

2060 NEXT K '.'* 

2070 FOR TT=0 TD (E+l)*20û ; NEXT TT:REM Temporisa*!! 



299? RETURN:'* 
3000 REH FUSION SUR BLOC 
' 3999 RETURN 
4000 REH FUSION DE BLOCS 

4999 RETURN 

5000 REH CHARGER OBJET 

5001 CLS 
5005 ' 

5007 INPUP'Nom de I 'objet a charqer":EL$(K) 

5008 EL$=EL*!K) 

5010 PRINT" Je charge ";EL»!K) 

5017 ON ERROR GOTO 23000 

5020 ' 

5025 OPENIN ELtilf! 

5030 INPUT #9.C0îKi,GXtKi.Gï(Kl.GZiKi,REiKi. 

5040 FOR I = TO L 

5050 INPUT #9.N(Ii 

5060 FOR J = TO N!I) 

5070 INPUT #9,XTiI,J!.YT(I,JS,2T(I,JÎ 

5080 NEXT J:NEXT I 

5090 CLOSEIN 

5999 RETURN 

6000 REH STOCKER FICHIER BLOC 
6005 PRINT" Je stocke le blDC ";BL* 
6015 OPENOUT BL* 

6020 PRINT #9,E 
6030 FOR K=8 TO E 
6040 PRINT #9,EL*(K) 

6046 PRINT #9,C0(K) 

6047 PRINT #9,GX(K) 

6048 PRINT »9,GY(K) 

6049 PRINT #9.GZ(K) 

6050 PRINT #9,RE(K) 
6055 NEXT K 



m 

>LJ 
>NA 

>CG 
>2h 

m 

>TL 
>HD 
>TF 
>HE 

m 

>ZF 

>vc 

>VY 
>XK 



)K. 
>MG 
>PJ 

:>fc 
m 

>HC 
>FE 
>HV 
>ME 
>HF 
>YR 

m 

>LJ 
)YG 
>0J 
MB 

:>«u 

>NJ 
>NL 

m 

>NU 

m 



6060 CLOSEOUT 

6599 RETURN 

7000 REM CHARGEHENT FICHIER BLOC * 

7005 PRINP'Je charge le bloc ":BL$:'t 

7O07 ON ERROR GOTO 45000 

7010 OPENIN BU: '* 

7020 INPUT #9,E : '« 

7030 FOR K=0 TO E: * 

7040 INPUT #9.EL$(ifl:'* 

7050 INPUT #9,C0(K):'* 

7060 INPUT #9.6X!tO: * 

7070 INPUT #9.BY!)0: * 

7080 INPUT #?.6Z(Ki:'* 

7090 INPUT #7. REM:'* 

7100 NEXT K: '* 

7110 CLOSEIN:* 

7999 RETURN:'* 

8000 REH STOCKER OBJET 

B001 IF L« THEN SOUND !,20:CL3:FRINT"Fas d'objet r 
ent, eh. banane. ,. ":FOH tt=0 TO 2000:NEXT:B0T0 89F9 

8002 CLS : PRINPSTDCKER OBJET": PRINT 

8003 CLS: INPUP'Nom de l'objet a stocker": ELI (if) 
8005 EL*=EL*(Ki 

S010 PRINPJe Stocke ! objet ":EL*!rf! 

8015 GOSUB 44000 

8020 ' 

8025 OPENOUT ELt(K) 

S030 PRINT *9,COiK).eX!K5.GY!K),GZiK),RE(KÏ.L 

8040 FOR I = TD L 

8050 PRINT M, Ml) 

8060 FOR J = TO Ni 15 

8070 PRINT #9.XT!!,J).YT(!,J!,ZTÏI.j; 

3080 NEXT J : NEXT I 

S090 CLOSEOUT 

8100 EL*=EU.UCi 

3999 RETURN 

9000 REM CREER UN OBJET 

9999 RETURN 

11000 REM Manipuler objet ou bloc 

11005 FB = 0:R_AGTRF=0 

11010 CL5:PRINPMANIPULER OBJET OU 3L0C":PRINT 

11020 PRINT:PRINT"Manipuler":PRINT 

11030 PRINP'a-Objet" 

11040 PRINP'b-BIoc" 

11060 80SUB 65000 

11062 IF COI AND c-f>2 THEN 11999 

11065 IF C = 2 THEN FB = 1 :GOSUB 31000 

11066 IF C = 1 THEN GOSUB 30000 

11067 CLS : PRINP'MANIPULER OBJET OU BLOC":PRINT 
11070 PRINT"a-Translation" 

11080 PRINPb-Rotation" 

11090 PRINPc-Affinite" 

11100 PRINT"d-Ho»othetie" 

11130 PRINT"e-Sy»etrie par rapport a l'origine" 

11140 PRINP'f-Symetrie par rapport a un plan" 

11150 PRINT"g-Tran5lation-Rotation-Fusion sur objet" 

11160 PRINPh-Transiation-Rotation-Fusion suc bloc" 



>lï 

m 

>BF 
>J8 
)RE 
M 

>ÔF 
>LN 
>PD 
>NC 

>f; 

>PL 

m 

>PD 



>0H 

)RR 

ùû >JC 

'HE 

>W 

>XK 
,-LP 
>DJ 
>YC 
>NB 
>PJ 
>FF 
>MC 
>MF 

:>fe 
m 

>ZH 
>XF 
>HJ 
>RT 
>HK 
>BD 
>QE 
>VE 
>JD 
)RL 
>0Z 
>Lv 
>YT 
;BS 
>WA 
>«N 
)AZ 

m 

m 
m 

:>es 

>BC 

>fj 
m 
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\lV , À\WWi "ÎAi :\fiVU\ *Vl\V îâ vVVôVVS 



THEN 11000 






11200 BOSUB 65000: IF 0X0 OR C > 

11205 CMANIF-C 

11500 ON Cmanip BOBUB 29000 , 370 

000,17000,17500 

11510 IF FB =0 THEN GOBLiB 44000 > 

11520 EL»=" > 

11999 RETURN > 

12000 REM Fusions diverses > 
12010 CLS:PRINT"FU5I0NS DIVERSES" :PRINT > 
12020 PRINT"a-Fu5ion objets" > 
12030 PRINT"b-Fusion sur bloc" > 
12040 PRlNT"c-Fusion de blocs" > 
12050 PRINr-'d-Translatian-Rctation-Fusion sur objet" > 
12072 FRINT"e-Translation-RatatiDn-Fu5ion sur bloc" > 

12080 BOSUB 65000: a=c : 

12090 ON C BOBUB 27000,3000.4000.17000,17500 : 

12999 RETURN 

14000 REM INCORPORER LA CHAINE A L'OBJET 

14?99 RETURN 

17000 REM TRANSLATION FUSION SUR OBJET 

17010 CLS:FLhGTRF=1:DX=0;DY=O:DZ=0:AR=0:AT=0:AL=O 

17020 PRINT"TRANSLATION-FUSION SUR OBJET" 

17030 GOSUB 30000:PRINT"Translation ?*sfiHS 65020: IF C 

OIS THEN DX=0 : »V=0: DZ=0: BDTO 17050 

17040 PRINT"vecteur-translation:":PRINT:INFUT"DX="!DX:I 

NPUT"DY=":DY:INPUT"DZ=":DZ:PRINT 

17050 PRINT"Rotstlon ?*:SD88 65020:ÏF C=15 THEN BOBUB 

37000 ELBE AR=0 

17090 PRINT"No»bre «œttual d'éléments ": INTi49/(L+i! i: 

PRINT"5inon. Tusian sur bloc. ., "iPRINT 

17100 INPUPNoibre d'éléments " ; NE 

17110 IF NE > IMT f49/iL+D) THEN PRINT"N' insistez Pas 

! " : SOUND 1,2000:F0R T = TO iOOO: NEXT t : GOTO 17999 

17120 Li=0:L2=L:NN=l 

1 7 1 30 L 1 =L 1 +L+ 1 : L24.2+L+ 1 : NN=NN+ ! 

17140 IF NN > NE TKEN 17260 

17160 FOR I = Ll TO L2 

17165 N(Ii=N(I-L-l! 

17168 FOR J = TO NU) 

17170 XTU,J!=XTiI-L-l,J; 

171S0 YT(I.J)=YT(I-L-1,J) 

17190 ZT(I.J)=ZT(I-L-1,J! 

17200 XT!I,JÏ=XT(I,J!+DX:YT(I,J!=VT!I,J)+BY:ITiI,Ji=2Ti 

I, Jl+DZ 

17203 ON CC GOSUB 43000,42000,41000 

17205 NEXT J : NEXT i 

17210 GOTO 17130 

17260 L=L t (NE-1HKL+1) 

17499 RETURN 

17500 REH TRANSLATION-FUSION SUR BLX 
17515 FLA6TRF=1:DX=0:DY=0:DZ=0:AR=0:AT=0:AL=0:GOSUB 300 : 
00 :CLS 

17520 PRINT'TRANSLATIDN-FUSIQN SUR BLOC":PRINT 
17530 PRINT"Translation ?": BOBUB 65020: IF CC15 THEN 17 
590 

17550 PRINT"Vecteur-transIation :':PRINT 
17560 INPUT "DX=";DX 



m 


; 17570 INPUT "DY'=":DY 


>PJ 


ZE 


175B0 INPUT "BZ=";DZ : PRINT 


m 


PD 


17590 PRINT:PRINT"Rotation ? ";S05UB 65020:IF C=Î5 THEN 
BOSUB 37000:PRINT 


>Cv 


WL 

m 


17600 PRINT: INPUT"Nos du bloc Se carateres i : "iBL*:PRIN 
T 


>LF 


PB 


17610 INPUT"Nombre i total) d'objets < 30 : ";NE :E=NE-i 


)ET 


WG 


: IF E > 29 THEN 17999 




MV 


17615 K=0 


>CD 


-CN 

EY 


17620 EL* (K j =BL*+ " 1 " : SOSUB aoiûïREH STOCKER PREMIER OBJ 
ET 


>C6 


ET 


17630 K = K + 1: IF K >E THEN G03UB 6000:: EL*=ELt(K-li : 


>FG 


FF 


60T0 17999 




m 


17632 N*=STR*iK+lkiF Kffl THEN N*=RIGHTtïN$, 1) ELSE m* 


>NU 


m 


RISHT*(Nt,2) 




>JB 


17635 EL*ÏK>=BL* + N$ :PRINT"Je calcule l'objet ":EL*<K 


>FC 


>PC 


) 




>BX 


17640 FOR I = TO L 


>LX 


)PE 


17650 FOR J = û TO N(IÏ 


>NY 


>HJ 


17660 XTil.J) = Xf(i.J) + DX 


>UF 


>SY 


17662 YTd.Ji = YTU,J) ♦ DY 


>UL 


>FT 


17664 ZTil.Jl = ZTil.J! + DZ 


>UR 


>CP 


17670 ON CC BOSUB 43000,42000,41000 


>AB 




17700 NEXT J i NEXT I 


>NV 


>N« 


17720 BOSUB 8005 


>EE 




17730 GOTO 17630 


>CH 


>VN 


17999 RETURN 


>PH 




18000 REM ARCTANBENTE 


>RE 


M 


18999 RETURN 


>PJ 




21000 REM BESTION DE BLOCS D'OBJETS* 


m 


m 


21999 RETURN 


>PC 


m 


23000 'Erreur sur objet 


>M 




23999 CLS:PRÎNT"0bjet inexistant. .. "'.SOUND 1.20:F0R tt= 


>R0 


>PM 


TO 1000:NEXT:EL$!K)="":EL*=""::RESUNE 10 




>BM 


24000 REM CHOIX DES COULEURS 


>XH 


>TV 


24999 RETURN 


>PF 


XNJ 


25000 REM TRACE EN PLAN DE L'OBJET EXISTANT 


>VF 


>,1R 


25999 RETURN 


>PG 


>NC 


27000 REM f-usiori sur objet 


>vv 


>UT 


27999 RETURN 


>PJ 


>UW 


29000 REM TRANSLATION 


>m 


>UZ 


29999 RETURN 


>QA 


m 


30000 REM objet en mémoire ? 


>WH 




30002 IF L O -1 AND EL* '=" THEN PRTNr'Objet sans n 


>BT 


m 


om présent en mefloire":PRINT:FRINT"Qn qarde ?":S0SUB 65 




>NV 


020: IF C = 15 THEN 30999 




>BF 


30010 IF EL* <> "" THEN PRINT"Objet résident ":EL* 


>PN 


>PF 


: PRINT: PRINT"0n garde ?":Ll>15: BOSUB 65020 




>PC 


30020 IF EL* "" AND C = 15 THEN 30999 


>W 


>HE 


30040 GOSUB 5005 


m 


m 


30999 RETURN 


>PC 




31000 REM BLDC EN MEMOIRE ? 


>UH 


m 


31010 IF EL* "" THEN PRINT"Bloc résident ";BL*: PRINT 


>YU 


>BV 


:PRINT"0n garde ?":G0SUB 65020 






31030 IF BL* O "" AND C= 15 THEN 31999 


>AK 


m, 

>PF ! 


31040 PRINT: INPUT"No« du bloc "jBL*:G0T0 7000 


>TB 


31999 RETURN 


>PD 
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Ere Informatique 
Aventure 



ans la gamine des logi- 
ciels Métal Hurlant 
édités par Ere Infor- 
matique, voici une aventure 



IrlïGffiHSISESQl 


P 

1 

8 

m 


iW~-.©»l§Ml»®«l"-«l 



.YBERNOID 



aites un petit effort de 

mémoire afin de vous 

1 souvenir d'un banc 

d'essai que nous avions fait sur 

un logiciel s'intitulant Exolon. 

Voici que l'auteur de ce jeu réci- 
dive avec Cybernoid qui n'est 
autre qu'une fantastique machi- 
ne de combat. 



fraîchement adaptée sur Ams- 
trad CPC. Vous êtes invité à 
être la "petite voix" de Crash 
Garett, pilote d'avion au casque 
de cuir qui a toujours une petite 
voix dans la tête et qui compte 
sur elle pour être guidé dans ses 
actions. 

Tout commence lorsque Crash 
Garett emmène Cynthia Sleeze , 
célèbre journaliste commère, 
pour faire une interview ; sou- 
dain, celle-ci décide de faire un 
crochet par la clinique du doc- 
teur Thorn, psychanalyste 
renommé. Seulement, il se passe 
énormément de choses bizarres 
à l'intérieur de cette clinique (je 
peux même vous dire qu'il y est 
question d'un homme avec une 
petite moustache qui a fait de 
gros ravages il y a près de 50 
ans). Garett, en essayant de 
résoudre ce mystère, va aussi 
être amené à savoir qui il est et 
qui est cette voix en lui qui le 
conseille et le guide sans cesse. 
Il faut savoir que ce logiciel a 



été réalisé à partir du film d'Ar- 
beit Von Spacekraft mais que 
vous aurez quand même des 
surprises si vous connaissez déjà 
le film. En tant que voix inté- 
rieure, vous intervenez pour les 
actions de première importance 
et il faudra savoir utiliser à bon 
escient le pouvoir de Garett qui 
le fait sortir vainqueur de toute 
situation critique. Le graphisme 
de ce logiciel est de bonne qua- 
lité ; nous devons simplement 
déplorer un choix de couleurs 
qui rend les écrans parfois 
"bizarres" sinon inesthétiques. 
Mais l'intérêt de l'aventure est 
là et nous vous conseillons de 
vous y risquer jusqu'à la fin» 




ennemis que vous allez rencon- 
trer ! Fort heureusement, vous 
pouvez trouver une boule de 
protection (qui tourne toujours 
autour de vous) ou une arme 
supplémentaire qui tire dans les 
deux sens (très pratique pour les 
ennemis qui vous arrivent dans 
le dos !). 

Mais votre armement, si puis- 
sant soit-il, ne vous servira à 
rien dans les écrans où seuls 
réflexes et agilité permettent de 
progresser ; en effet, dans ces 
cas-là, vous devez passer au- 
delà d'un canon tirant des bal- 
les de façon intermittente ou 



vous faufiler dans une espèce de 
labyrinthe où vont et viennent 
sans cesse des "capsules"... 
quand vous n'êtes pas poursuivi 
pendant que vous essayez de 
suivre le rythme des capsules ! 
Dur, dur ! 

Cybernoid a le mérite d'être 
aussi coloré, rapide et attirant 
que son prédécesseur ; mais 
nous tenons quand même à 
vous avertir : pour progresser 
dans ce jeu (même si vous êtes 
un as du joystick), il vous fau- 
dra énormément de patience car 
Cybernoid n'est vraiment pas 
facile» 




Lorsque le début de votre aven- 
ture (ou de votre calvaire !) 
commence, votre machine se 
fraye un chemin dans une suite 
de couloirs qui semblent souter- 
rains, avec pour tout équipe- 
ment vingt bombes. Bien vite, 
vous allez vous rendre compte 
que cet armement est très léger 
face aux dangers, pièges et 
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'l RATES 



MicroProse 

Aventure/Simulation 



1 y a déjà plusieurs 
mois que nous vous 
avions annoncé Pirates 
sur CPC ; après avoir réalisé 
quelques abordages supplémen- 
taires, il arrive enfin sur nos 
écrans. Ce logiciel vous propose 
donc de vivre une grande aven- 
ture dans l'histoire de la pirate- 
rie aux Antilles de 1500 à 1700. 

Après avoir donné votre natio- 
nalité, votre nom et votre spé- 
cialité au combat, vous com- 
mencez votre périple. Admet- 
tons que vous soyez anglais : 
vous devez alors trouver et 
anéantir les bateaux ou villes de 
nationalité espagnole ou hollan- 
daise ; vous pourrez ainsi vous 
enrichir en hommes, en armes 
ou en or et récupérer alors des 
renseignements pour trouver le 
trésor ! Car, bien-entendu, il y 
a un trésor que vous aimeriez 
bien avoir dans vos cales ! 



Ce logiciel vous offre plusieurs 
possibilités : vous voguez sur les 
mers en vous déplaçant sur une 
carte jusqu'à l'instant où la 
vigie crie "Navi'e à t'ibod" ; 
vous pouvez alors à l'aide de 
menus déroulants choisir votre 
action et engager éventuelle- 
ment un combat. Si, par ail- 
leurs, vous accostez et débar- 
quez dans une ville, de nom- 
breuses actions s'offrent à vous 
(toujours sous forme de menus 
déroulants) : aller voir le gou- 
verneur, aller dans une taverne 
ou faire des transactions. 
Pirates est un logiciel offrant 
une belle réalisation bien que les 
graphismes ne soient pas tou- 
jours très fouillés. Par ailleurs, 
il faut saluer le travail considé- 
rable qu'a représenté la traduc- 
tion du manuel et du logiciel 
bien que, parfois, celle-ci écor- 
che quelque peu la syntaxe ou 
le vocabulaire de la langue fran- 
çaise. Un dernier point de détail 
qui est d'importance : Pirates 
ne fonctionne que sur CPC 
6128 !• 





ARKANOID II (REVENGE OF DOH) 



Imagine 
Arcade 



ue celui ou celle qui 
n'a jamais entendu 
parler d'Arkanoïd ose 
lever la main ! En effet, il y a 
déjà de longs mois que chacun 
essaie d'anéantir l'infâme Doh 
l'aide de son puissant vaisseau 
Vaus. Vous pensiez avoir défi-' 
nitivement enterré votre ennemi 
juré quand, soudain, il lui prend 
la fantaisie de réapparaître afin 
d'exercer sa vengeance. Cette 
fois, Doh est sûr de sortir vain- 
queur de ce combat car il a 
échafaudé des plans plus que 
machiavéliques. 



Seulement, il a oublié une 
chose ! C'est l'arme secrète 
d'Arkanoïd : le vaisseau Vaus 
2 qui a tous les avantages du 
précédent plus quelques "bot- 
tes" intéressantes. Par exemple, 
vous avez une capsule qui vous 
fournit deux curseurs (intéres- 
sant), une autre qui laisse une 
ombre traîner derrière le curseur 



et qui fait aussi rebondir votre 
projectile, une autre qui fait lit- 
téralement éclater votre projec- 
tile en 5 autres très efficaces, 
une autre qui donne une couleur 
rouge et un pouvoir dévastateur 
à votre projectile, une autre... 
Enfin, vous verrez bien ! Tou- 
jours est-il que les possibilités 
offertes sont nombreuses et 
qu'une fois de plus, vous ris- 
quez de vous retrouver collé à 
votre chaise et à votre joystick. 
Le graphisme est toujours le 
même, le déplacement du cur- 
seur est peut-être un peu moins 
fluide mais vous prenez un réel 
plaisir à jouer avec ce logiciel» 





■,..-/■■■ :■. ;■ .' ■ 





CPC n° 34 - Mai 1988 



69 



BANC P'ZSSA/ 



wq/cfELs 



f 




i*- 1UI LU MU. 



I < 

I ■' 



H * fc _ 

Ni #■ 'Y* » 







SlDE ARMS 

Go l Arcade 



ncore une fois, il se 
trouve que notre mer- 
veilleux globe bleu, 
qu'est la Terre, se trouve dan- 



gereusement menacé. Et si je 
vous dis que la menace s'appelle 
Bozon, vous comprendrez qu'il 
vous faut agir sans perdre une 
seule seconde ! 

Il ne vous reste plus qu'à 
affronter les vagues successives 
d'ennemis afin de pouvoir péné- 
trer dans l'empire souterrain de 
Bozon où les choses risquent de 



cruellement se corser jusqu'au 
moment où vous rencontrerez 
l'arme ultime et fatale de Bozon 
qu'il vous faudra anéantir... Si 
vous n'êtes que pauvrement ar- 
mé au départ, vous pouvez heu- 
reusement v améliorer votre ar- 
mement et votre vitesse de tir au 
fur et à mesure que vous abat- 
tez vos ennemis. 



Cette adaptation de jeu Cap- 
com sur Amstrad est malheu- 
reusement un peu décevante, 
chose à laquelle Go ! ne nous 
avait pas habitués jusqu'à pré- 



sent. En effet, les graphismes 
sont corrects et vous avez la 
possibilité de jouer sur fond 
musical signé par le groupe 
Résister, mais l'animation fait 
apparaître une lenteur quelque 
peu désagréable» 




BlOOD VALLEY 

Gremlin Graphics 
Arcade /Aventure 



a vallée sanglante est 
un endroit qui mérite 
bien ce nom car elle est 
le siège d'une coutume que l'on 
peut qualifier d'horrible. En 
effet, tous les ans, alors que le 
printemps fait doucement son 
apparition dans la vallée, 
l'Archveult (maître des lieux) se 
délecte en organisant un con- 
cours très particulier : il lâche 
dans la vallée un esclave pour 
ensuite le traquer jusqu'à ce que 
mort s'ensuive. Le seul espoir 
de survie pour cette proie inha- 
bituelle est de trouver la sortie 





de cette maudite vallée après 
avoir rempli cependant certains 
objectifs. 

Ces objectifs sont différents sui- 
vant le type d'esclave que vous 
incarnez car, en effet, vous avez 
le choix entre le prêtre qui pos- 
sède certains pouvoirs, le bar- 
bare qui incarne la force et le 
voleur qui sait magnifiquement 
manier l'épée et qui possède une 



particularité : c'est une femme ! 
Lorsque vous jouez tout seul, 
seule une position d'esclave 
vous est accessible. Par contre, 
lorsque vous êtes deux à vouloir 
vous mesurer dans cette vallée 
maudite, vous pouvez choisir le 
rôle du méchant, soit celui de 
l'Archveult. 

Blood Valley est un logiciel qui 
risque de vous laisser sur votre 



faim ; en effet, si vous lisez la 
notice et prenez connaissance 
du scénario, vous risquez fort 
d'être emballé. Par contre, lors- 
que le logiciel fait sa première 
apparition sur l'écran, les gra- 
phismes que vous découvrez 
ainsi que leur animation vous 
font déchanter. Dommage car 
cela aurait pu être très bien... 
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Enlightenment 

Druid II 

Firebird 
Arcade/Aventure 

1 y a longtemps, bien 
longtemps (103 ans 
pour être précis) 
qu'Acamantor le méchant a été 
expulsé du royaume de Belorn. 



JVC P'ESSA/ 



LOq/C/BLS 



Cette victoire était due pour une 
grande part au petit druide Has- 
rinaxx qui, grâce à ses pouvoirs 
et sa persévérance, avait réussi 
à terrasser Acamantor et ses 
princes maudits... Malheureuse- 
ment, en faisant sa cueillette 
matinale de gui, notre druide 
fait une fâcheuse découverte : 
les morts vivants sortent à nou- 
veau des forêts ce qui veut dire 
qu'Acamantor est de retour. 
Hasrinaxx sait très bien que, 
cette fois, la bataille va être très 
difficile et les 32 pouvoirs dif- 
férents qu'il va trouver au fur 
et à mesure de sa progression 
devront être intelligemment 
sélectionnés car il ne peut en 
stocker que 8 à la fois. Partant 
du village d'Ishmar, il va devoir 
affronter les princes maudits 
dans tous les domaines : feu, 
neige, déserts jusqu'au moment 
où il atteindra la tour d'Aca- 



mantor pour le combat final. 
Par rapport au premier épisode 
de Druid, les graphismes ont été 
un peu améliorés et le nombre 
de décors différents est assez 
important. L'animation est tou- 
jours rapide avec un scrolling 



un peu tremblotant qui fait mal 
aux yeux. Malgré tout, vous 
pourrez passer quelques heures 
avec Druid II en pestant parfois 
contre le fait de ne pas avoir 4 
mains pour sélectionner les pou- 
voirs tout en se déplaçant... 







'mJi^ 



s\^fr 



MICROLOGIC 



Un logiciel vous 
permettant de gérer 
jusqu'à 10 comptes. 
Commandes par 
barres de menus. 
Protection des 
comptes par codes 
secrets. Plus de 
14800 opérations 
stockables par 
compte. Sorties sur 
écran, Imprimante ou 
disquette. Sorties 
multicriteras : Relevé 
complet - Solde réel 



outebtube de courre 



NOM 01 LA BANQUE 


■AH QUE TEST 




ODICOMFTI 


1IMI 


0ODS 


"ACCES 


OUI 



Me HHI ccpib t XlSalcrmtJ 



SELECTION MODIFIER BEIETES 9ILW 



pas 



AJOUTEH RET1BEB POINTER 



jHIMj FOPHW10H 



TfPE: REM. OHEO 
OUDMfOBJET : VERSEMENT 
KONTAWT : lWI.0*ftai 



Solde opérations pointées (permet de traiter les 
opérations différées du type 
CB.)- Recherche entre 
dates /entre montants minis 
et maxls / avec ou sans 
libellé particulier - Liste 
des choques émis entre 
dates / entre numéros... 
Bilan - Copie d'écran à 
tout moment - Utilitaires 
d'écrans, d'Imprimante... 






Déterminez grâce à ce logiciel vos 
biorythmes passés, présents et futurs. 
Interprétation commentée des résultats. 
Sorties graphiques et textes sur écran ou 
Imprimante. Calendriers mensuels et 
annuels Intégrés avec possibilité 
d'Impression. Recherche de jours... 




B.P. 18 - 91211 DRAVEIL CEDEX 



Cette série de logiciels vous permet de 
réaliser vos schémas. Implantations et circuits 
électroniques en quelques minutes. Livrés 
avec une bibliothèque Importante de 
composants, symboles et graphiques vous 
obtenez des documents directement 
exploitables pour réaliser vos circuits 
Imprimés. Plusieurs utilitaires sont fournis : 
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Programme de saisie de zones d'écrans et 
manipulations de celles-ci (Inversions 
horlzontates, vertlcates, vkJéo - déplacement 
- sauvegarde..) vous permettant de faire de 
la micro -édition. La version TURBO permet 
de travailler sur 4 écrans en carré ou en 
hauteur avec scrolling Intégral et de réaliser 
des certes de très grandes tailles. SIMPLE 
OU DOUBLE FACES- IMPRESSIONS 
MULTIPASSES RESPECTANT L'ECHELLE - 
CLAVIER OU SOURIS - PAS 
AUTOMATIQUE OU MANUEL.. 
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^0 T I L I T A I R E 



INTRODUCTION 
A G.S.X. 



tJ.-M. SCAYA 




Etude des différents 
codes 

CODE 1 

Jlvant de créer un dessin, il faut 

^^"ouvrir" une station graphique. 

tf^BLes valeurs à mettre dans le 

tableau CONTROLE sont les suivantes : 

CONTROLE(O) = 1 

Numéro de fa fonction 

CONTROLE(I) = 

Pas de coordonnée à transmettre 

CONTRQLEI2) = ??? 

■Sans importance 

CONTROLER) = 10 

10 paramètres dans EntParam 

CONTROLER) = ??? 

Sans importance 

CONTROLER) = ??? 

Sans importance 

L'ouverture d'une station graphique 
n'est pas une mince affaire puisque dix 
paramètres sont nécessaires à la fonc- 
tion. 

EntParam(O) 

Périphérique utilisé (1, 21, 22...) 
EntParam(l) 

Format des lignes (voir commande 15) 
EntParam(2) 

Couleur des lignes (0 ou 1) 
EntParam(3) 

Forme du marqueur (voir commande 1 8) 
EntParam (4) 
??? 

EntParam(5) 
??? 

EntParam(ô) 
Couleur du texte (0 ou 1) 



Remarque : les listings 

dont il est question dans 

ce numéro sont tous 

présents dans le CPC 

n° 33. 



EntParam (7} 

Hachures (voir commande 24) 

EntParam(8) 

Mode de remplissage (voir commande 

23) 

EntParam(9) 

Couleur de remplissage (0 ou 1). 

Après exécution de la commande, GSX 
retourne certaines valeurs particulière- 
ment intéressantes : 
LecParam(O) 



Nombre de points en horizontal 

LecParamll) 

Nombre ae points en vertical 

LecParam(3) 

Taille d'un point horizontal 

LecParam(4) 

Taille d'un point vertical. 

L'utilisation de ces quatre valeurs permet 
de calculer les coefficients à utiliser de 
façon à obtenir par exemple des cercles 
ronds quel que soit le périphérique uti- 
lisé (lignes 20270 à 20310). De même, 



liste des codes 



1 - Ouvre une station graphique 

2 - Ferme la station 

3 - Remise à zéro d'une station 

4 - Affiche tous les graphiques en attente 

5 - Escape (Contrôles divers) 

6 - Trace une suite de lignes 

7 - Envoie des points de marquage 

8 - Ecrit un texte à la position spécifiée 

9 - Trace un polynôme 

10 - Trace un rectangle vide 

1 1 - Trace un rectangle hachuré ou non 

1 2 - Ajuste la taille au texte 

13 - Définit la direction du texte 

14 - Définit la couleur (utile sur CPC) 

15 - Fixe le type des lignes 

16 - Ajuste la largeur des lignes 

17 - Définit la couleur des polygones 

1 8 - Fixe le type des marqueurs 

19 - Ajuste la dimension des marqueurs 

20 - Définit la couleur des marqueurs 

21 - Définit le type des caractères 

22 - Définit la couleur du texte 

23 - Fixe le type de remplissage des figures 

24 - Choisit un style de hachures ou de pointillés 

25 - Définit la couleur de remplissage 

26 - Donne les valeurs des couleurs de l'index 

27 - Retourne la définition du tableau de cellules 

28 - Valeur de la variable des coordonnées d'entrée 

29 - Valeur du calculateur des coordonnées d'entrée 

30 - Retourne la valeur de l'unité choisie 

31 - Retourne une chaîne de caractères 

32 - Fixe le mode d'écriture 

33 - Fixe le mode d'entrée. 
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désire un dessin sur plusieurs périphéri- 
ques tout en conservant les proportions, 
il faudra diviser chaque coordonnée par 
ce coefficient : dans ce cas, la feuille de 
travail sera ramenée à un carré sur n'im- 
porte quel organe de sortie ce qui n'est 
pas "îdiot" puisque pour GSX, la défi- 
nition horizontale est égale à la verticale 
soit 32767 points. Dans le programme 
de démonstration, les coefficients n'ont 
été utilisés que pour le tracé du cercle et 
des arcs de cercle. 

CODE 2 

Qui dît ouverture dit fermeture. Le code 
2 sert donc à fermer la station graphi- 
que soit en fin de travail soit pour chan- 
ger d'organe de sortie. L'écran est 
effacé et sur imprimante, le dessin est 
transféré sur le papier. Pour appeler 
cette commande, on met la valeur 2 dans 
CONTROLE(O) ; les autres valeurs sont 
sans importance. 

CODE 3 

Cette commande, qui ne demande pas 
de paramètre, peut servir à effacer 
l'écran ou à faire effectuer un saut de 
page à l'imprimante. 

. CODÉ 4 

Lorsque l'utilisateur travaille sur écran, 
cette commande est inutile, par contre sur 
imprimante, elle devient indispensable. 
En effet, sur écran, le tracé est affiché au 
fur et à mesure du déroulement du pro- 
gramme alors que sur imprimante, tou- 
tes les données sont stockées dans un 
tampon qui sera vidé par cette com- 
mande (par curiosité, essayez de suppri- 
mer les lignes 520 et 530 en faisant une 
sortie sur imprimante). 

CODE 6 

Cette commande permet de tracer des 
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lignes brisées. Le nombre de sommets 
doit être placé dans CONTROLE(l) et 
les coordonnées dans EntCoord ; pour 
tracer une diagonale coupant tout 
l'écran, CONTROLE(l) =2 : 
EntCoord(0) = : EnfCoord(1 ) = : 
EntCoord(2) = 32767 : 
EntCoord(3) = 32767. ContrÔle(5) doit 
être à 1 . 



FIGURE 3 Illustration de la commande numéro 13 
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CODE 7 
La syntaxe de cette commande est la 
même que la commande 6 mais au lieu 
de tracer des lignes reliant chaque point, 
seuls les points sont marqués (mar- 
queurs). 

♦ CODE 8 

Des textes peuvent être inscrits sur la 
feuille graphique ; le début du texte sera 
écrit aux coordonnées spécifiées dans 
EntCoord (0 et 1). Chaque caractère 
sera transmis sous forme ASCII dans le 
tableau EntParam et le nombre de carac- 
tères sera placé dans CONTROLER). 

- CODE 9 

La commande 9 est très proche de la 
commande 6 ; les syntaxes sont identi- 
ques mais le code 9 forme un polygone 
fermé au lieu d'une suite de lignes bri- 
sées. D'autre part, le polygone formé 
par cette commande peut être hachuré 
contrairement à la commande numéro 6. 

CODES 10 
et 11 

Ces deux commandes permettent de tra- 
cer des rectangles en indiquant unique- 
ment les coordonnées situées en bas à 
gauche et en haut à droite. Le code 1 
trace simplement le tour du rectangle 
alors que le code 1 1 permet de hachu- 
rer la surface ainsi délimitée. 
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FIGURE 4 Illustration de la commande numéro 32 



Mode Ecriture 1 

Le rectangle remplace une partie du 

triangle qui a été tracé en premier. 
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■! Mode Ecriture 2 

A l'intersection des deux figures la 
somme des deux tracés est dessinée 
{OU logique}. 



Mode Ecriture 3 

Un OU exclusif est appliqué à l'in- 
tersection des deux figures. 



SSSBwlp» 1 " 




H*H2sacE=aï^ 



Le mode Ecriture 4 trace le dessin en blanc. Si une figure a été dessinée dans 
le mode 1 par exemple *si une autre figure tracée en mode 4 est contenue dans 
la première, le résultat est identique au mode 3. 



CODE 72 

Encore une commande très intéressante 
sur imprimante mais tout à fait inutile sur 
écran ; elle permet de définir la taille des 
caractères. La dimension des caractères 
doit être placée dans EntCoord(l) alors 

3ue EntCoord(O) doit contenir 0. La taille 
u texte peut prendre une douzaine de 
valeurs (avec un pas de 10). 

CODE 13 
Une fois de plus, cette commande ne 
trouve son intérêt que sur imprimante. 
Elle permet d'afficher un texte dans qua- 
tre directions différentes (voir illustration 
figure 3). Les paramètres à entrer dans 
EntParam(O) sont : 


Ecriture normale (de gauche à droite) 
900 

Ecriture de bas en haut 
1800 

Ecriture de la droite vers la gauche 
2700 
Ecriture de haut en bas. 

CODE U 

Pour changer un peu, cette commande 
est inutile sur imprimante ainsi que sur 
l'écran du PCW. Sur CPC, en Turbo Pas- 
cal, elle permet de choisir entre 4 colo- 
ris différents (sur un écran monochrome, 
c'est la valeur 1 dans EntParam(O) qui 
offre le meilleur résultat). 



CODE 15 
Utile aussi bien sur écran que sur impri- 
mante, la définition du tracé des lignes 
peut être modifiée grâce à cette com- 
mande. La valeur placée dans EntParam 
(0) peut varier entre 1 et 6. 
EntParam(O) = 1 
Trait continu 
EntParam(O) = 2 
Petit tiret 
EntParam(O) = 3 
Pointillé 

EntParam(O) = 4 
Trait Point 
EntParam(O) = 5 
Grand tiret 
EntParam(O) = 6 
Trait Point Point 
Le code 6 n'existe pas sur écran. 

• CODE 18 

La commande 18 agit sur le style des 

marqueurs ; la syntaxe est la même que 

pour la commande 15. Cinq formats sont 

autorisés : 

EntParam(O) = 1 

Point . 

EntParam(O) = 2 

Signe plus + 

EntParam(O) = 3 

Etoile * 

EntParam(O) = 4 

Lettre ou carré □ 

EntParam(O) = 5 

Croix x 



CODE 23 
Mode de remplissage des surfaces (rec- 
tangles ou polygones). Quatre modes de 
remplissage peuvent être utilisés. 
EntParam(0) = 
Seul le tour du tracé est affiché. 
EntParam(O) = 1 
La surface est remplie. 
EntParam(O) = 2 

La surface est remplie avec des pointillés. 
EntParam(O) = 3 
La surface est remplie avec des hachures. 

Cette commande n'est pas reconnue par 

l'écran. 

* CODE 24 

En association avec la commande 23, ce 
mode permet de choisir parmi six modè- 
les de pointillés ou de hachures (démons- 
tration). Comme par hasard, cette com- 
mande bien que très utile est inexploita- 
ble sur écran. 

- CODE 32 

Encore une fois inutilisable sur écran, 
cette commande permet de choisir le 
mode de croisement des tracés sur impri- 
mante. Le damier figurant dans le pro- 
gramme de démonstration illustre cette 
commande ; il y a cinq rectangles pleins 
tracés en horizontal et en vertical, lors- 
que deux rectangles se croisent, le croi- 
sement est en blanc et non en noir. Pour 
plus de détails, vous pouvez vous repor- 
ter à la figure 4. 

CODES 17, 20, 22 et 25 

Ces codes agissent respectivement sur la 
couleur de ligne, des marqueurs, du 
texte et des surfaces. Si la valeur placée 
dans EntParam est égale à 0, le tracé 
devient invisible ; ces commandes peu- 
vent servir de gomme. 

Le programme 
de demonstration 

Afin de satisfaire un plus grand nombre 
d'utilisateurs, deux programmes vous 
sont proposés. Les deux logiciels remplis- 
sent pratiquement le même rôle à un 
détail près : le programme BASIC Mal- 
lard (pour PCW) offre en plus de celui 
écrit en Turbo Pascal l'affichage d'une 
page de présentation et le tracé d'un 
graphique en plus de l'histogramme. 
Afin de conserver une bonne compatibi- 
lité entre CPC et PCW, il est conseillé de 
placer l'écran du PCW en mode 80 co- 
lonnes par la commande SET24x80. 
COM sinon l'affichage des mois sur les 
graphiques a de fortes chances de se 
trouver décalé- 
La démonstration s'effectue sur trois 
■pages ou écrans en Turbo Pascal [CPC 
ou PCW) et sur cinq pages en BASIC 
(PCW). La première page (absente en 
Turbo) sert de présentation et de titre, la 
suivante montre différents styles de rem- 
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plissage, de pointeurs et de lignes. La 
pages suivante trace un histogramme de 
trois valeurs mensuelles (hachurées dif- 
féremment), la suivante en BASIC uni- 
quement, présente un graphique en 
lignes brisées. En guise de conclusion, la 
dernière feuille représente deux camem- 
berts dont un a une "tranche" décalée 
et en bas de la feuille, un demi-fromage 
hachuré de six façons différentes. 

A la auesfion "sur quel périphérique...", 
il faudra répondre par 1 sortie sur écran 
(mode 2 sur CPC). 

2 1 sortie sur imprimante haute résolution 
sur PCW (DMP2000 sur CPC). 

22 sortie sur imprimante basse résolution 
sur PCW. 

Le programme est prévu pour tourner 
aussi bien sur écran en mode 80 colon- 
nes que sur imprimante PCW basse réso- 
lution ou sur DMP2000 avec CPC 6128. 
Pour les autres périphériques utilisables, 
consultez le fichier ASSIGN.SYS (les 
résultats ne seront pas obligatoirement 
identiques). 

Dans le cas de sortie sur écran, le pro- 
gramme attend l'action sur la touche 
RETURN après chaque image ; sur 
imprimante, cette manœuvre est inutile. 

Le programme basic 

Dans la mesure du possible, les comman- 
des GSX utilisées dans le programme ont 
été regroupées entre les lignes 20200 et 
22000. La première ligne de chaque 
sous-programme indique les paramètres 
devant être initialisés avant appel. 

Afin de ne pas avoir à réinitialiser à cha- 
que tracé de lignes ou de rectangles le 
tableau CONTROLE, des sous-program- 
mes remplissant cette tâche ont été créés 
mais il est indispensable de servir le 
tableau EntCoord avant d'appeler ces 
sous-programmes. 



Tracé du cercle 

Après avoir initial isé les variables 
RAYON, X et Y, l'appel au sous- 
programme situé à partir de la ligne 
22 1 00 permet de tracer un cercle. Aucu n 
contrôle de débordement n'est effectué 
ce qui fait que si le centre est en 
X= 15000, Y = 30000 avec un 
RAYON = 1 0000, il risque de se passer 
des choses inattendues. 
Le dessin du cercle se fait en traçant 360 
segments de droite (soit 360 degrés). Le 
calcul des coordonnées de chaque point 
est basé sur la méthode du cercle trigo- 
nométrique (vague souvenir de ma sco- 
larité) ; le cosinus est sur l'axe horizon- 
tal et te sinus sur le vertical. Les coordon- 
nées ainsi calculées sont divisées par les 
coefficients calculés lors de l'ouverture de 
la station graphique. Ce procédé permet 
de tracer des cercles ronds et non des 
"patates" mais ralentit la vitesse d'exé- 
cution. 




Vfàâ 



Arc de cercle 



Le tracé des arcs de cercle est basé sur 
la même méthode de calcul mais utilise 
la commande 9 au lieu de la 6. 
Généralement, un arc de cercle trouve 
sa place à proximité d'autres arcs 
(camemberts). Afin de pouvoir différen- 
cier tous les arcs, l'utilisation de hachu- 
res est souhaitable. Le code 6 trace des 
lignes simples alors que le code 9 trace 
des polygones fermés qui peuvent être 
remplis de quatorze motifs différents 
(vide, plein, six pointillés et six hachures). 
Ce sous-programme commençant à la 
ligne 22500 demande cinq variables 
pour fonctionner : 
RAYON 

Comme pour un cercle. 
X et Y 

Coordonnées de l'angle. 
OIGINE 

Angle formé entre le début de l'arc et 
l'axe horizontal (sens triqonométriaue). 
ANGLE 
Angle d'ouverture de l'arc. 




Tous les angles sont exprimés en degrés 
(restons Français) ce oui simplifie consi- 
dérablement le pas des boucles (FOR 
I = 1 TO 360 est si simple par rapport à 
FOR 1 = TO 2xPI STEP 0.0174). 



vous avez I intention de créer 
ou vous dirigez 

VOTRE BOUTIQUE 
INFORMATIQUE... 

METTEZ TOUTES 

LES CHANCES 

DE VOTRE COTE ! 

REJOIGNEZ LA FRANCHISE DEIA 
ET DEVENEZ DISTRIBUTEUR 



POUR MOINS DE 20000 F M! 
Distributeur agréé AMSTRAD, 
COMMODORE, ATARI, ORIC et 

COMPATIBLES PC. 
RENSEIGNEZ-VOUS VITE AU 

50.91.15.81 



Programme en 
turbo pascal 

Le programme en Turbo fient pas mal de 
place à tel point qu'il est indispensable 
de répondre N à la question Voulez- 
vous inclure les messages d'erreur" sinon 
la mémoire risque de se sentir à l'étroit 
(erreur 98). Il faut se souvenir que GSX 
s'est réservé pas mal d'octets pour son 
fonctionnement (14300 sur PCW et 
11700 sur CPC). 

Le listing est divisé en deux parties. La 
première, nommée GSX. PAS contient les 
différentes fonctions GSX ainsi que des 
commandes simplifiées. Cette partie 
pourra facilement être utilisée pour toute 
autre application. La seconde partie inti- 
tulée DEMO-GSX.PAS se chargera au 
moment de la compilation du chargement 
de la première ; c'est cette partie qui 
contient le programme de démonstra- 
tion. 

Par rapport au BASIC, un tableau a été 
ajouté ; celui-ci contient les adresses de 
début des tableaux CONTROLE, ENT- 
PARAM, ENTCOORD, LECPARAM et 
LECCOORD. 

Le calcul des sinus et cosinus n'étant pas 
des plus rapides, une petite astuce a été 
utilisée de façon à ne calculer qu'une 
seule fois ces valeurs quel que soit le 
nombre d'arcs ou de cercles à tracer. Les 
sinus et cosinus des angles de à 360 
degrés sont stockés dans un tableau bap- 
tisé SINCOS. A la première utilisation 
du programme, les calculs sont effectués 
puis le tableau est stocké sur disque par 
la commande BLOCKWRITE sous le nom 
de SINUS.DAT. Lors des utilisations 
futures, ces données sont récupérées sur 
le disque par la commande BLOCK- 
READ. Ces deux instructions complémen- 
taires sauvent dans un fichier sans type 
des blocs de 128 octets issus d'une 
variable. 

Les "matheux" vont "sortir de leurs 
gonds" maïs la méthode est efficace. Les 
calculs ne se font qu'une fois par dis- 
quette et le chargement une seule fois par 
programme si celui-ci trace au moins une 
fois un cercle ou arc de cercle. 
Au moment de la compilation, il est pos- 
sible de créer un programme DEMO- 
GSX.COM mais avant le lancement, il 
sera indispensable d'utiliser la com- 
mande GÉNGRAF DEMO-GSX.COM 
de façon à rendre ce logiciel compatible 
avec GSX. 

Conclusion 

Certaines fonctions restent à découvrir 
mais avec celles qui viennent de vous être 
présentées, votre PCW ne se contentera 
plus du traitement de textes mais vous 
ouvrira des horizons graphiques. 

Bon graphisme, 

Bon courage et 

Bon G.S.X. 
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Index -généralités 

• Principe 

fn des procédés utilisés pour trouver l'adresse (le 
rang) d'une fiche sur disque est celui de l'index. Le 
principe en est analogue à celui des index figurant 
à la fin de certains ouvrages : 

Info. cherchée Page 

(Clés) (R ang ) 

- Adhésifs 221 

- Antennes 100 

etc. 

- Vernis 54 

- Walkman 32 

Dans un ouvrage, on pourrait avoir : 

- Télévision 32, 104, 305 

Mais dans un index d'accès direct, on aura : 

- Télévision 32 

- Télévision 305 

- Télévision 104 

Comme dans un livre, les fiches index 
homonymes sont classées par adresses 
croissantes, mais séparément. 

Les index dont nous parlons n'ont presque rien à voir avec 
les tables d'indice utilisées pour l'adressage indirect. Ces 
tables d'indices ou de "pointeurs" qu'on appelle parfois 
index permettent de modifier l'ordre logique d'éléments dont 
on ne veut pas changer l'emplacement réel. 

Ces index d'adressage indirect peuvent être par exemple : 

- des tables d'entiers contenant les indices de la table princi- 
pale ; 

- la suite des descripteurs d'un tableau de chaînes de 
caractères. 

Le premier type contient des adresses RELATIVES, le second 
des adresses ABSOLUES. 

Mais revenons à nos index d'accès direct . 

Les index que l'on trouve à la fin des livres sont toujours triés 

sur la clé, car l'homme ne peut pas exploiter un fichier en 

désordre, sauf si ce fichier est de très faible longueur. 

En informatique, on peut (parfois) avoir des index non triés, 

mais la distinction principale se fait d'après l'emplacement 

de l'index en cours d'utilisation. 

D'après ce critère, on distingue : 

- les index entièrement sur disque ; 

- les index en partie en mémoire ; 

- les index entièrement en mémoire. 
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Index entièrement sur disque 

Un index non trié serait inutilisable, la lecture séquentielle sur 
disque étant beaucoup trop lente. Sur un index trié, on pourra 
utiliser la recherche dichotomique. 

Nous avons dit ce qu'il faut penser de la dichotomie sur dis- 
que : méthode très valable, surtout avec de petits enregistre- 
ments, mais se heurtant à la lourdeur des décalages entraî- 
nés par les suppressions et les additions. On sera donc amené 
à faire les mises à jour en TEMPS DIFFERE. 
On peut rendre cet index trié sur disque, très performant, de 
la façon suivante . 

Supposons que nous nous trouvions dans la situation ci-après ■ 

- Secteurs de 5 12 octets, enregistrements INDEX de 8 octets 
(clé 6, adresse 2). 

- Il y a donc exactement 64 enregistrements INDEX par sec- 
teur. 



Lorsqu'il n'y a pas un nombre entier d'enregistrements par 
secteur, le rang du dernier enregistrement (même partie) 
du même secteur est donné par la formule : 

Rang = INT((N ■ long.Secteur) -1 )/long.elem.) + 1 



: |cl nous notons les clés du 64-, 1 28-, etc. enregistrements (de 
I index), ce qui nous donne la table suivante : 



64 BRUNO. 

128 CHARLE 

192 GEORGE 



(fin du 1" secteur de l'index 

( 2- 

I 3- 



2048 



VICTOR 



(32 e et dernier secteur de l'index) 

Cette table, enregistrée sur disque lors de la mise à iour pério- 
dique, est chargée en mémoire en début de travail 
Elle y occupera : 

32x(2 + (6 + 3)) soit 352 octets (dérisoire I) 

Si nous cherchons un nommé DENIS., la lecture dichotomi- 
que ou séquentielle de cette table nous montre qu'il convient 
de lancer une recherche dichotomique dans l'index sur dis- 
que avec les bornes externes suivantes : 

Basse = 64, Haute = 128+1 

Le J« ordre de lecture concernera l'enregistrement INDEX 

charge "UNE FOIS POUR TOUTES" et le reste de la dicho- 
tomie se passera en mémoire. 

Cette méthode garantit les performances suivantes : 
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1 seul accès index par accès au fichier principal, sauf le 
cas très large où un élément d'index lu au cours de la 
recherche dichotomique est à cheval sur deux secteurs. 



La lecture des homonymes se fait ensuite par lecture séquen- 
tielle de l'index. Il y aura un nouvel accès à l'index seule- 
ment lors d'un franchissement de secteur. 
Notons au passage que rien n'interdit de mettre index et 
fichier principal sur des lecteurs de disquettes séparés. On 
y gagnerait un peu en vitesse (optimisation des déplacements 
de la tête de lecture). On y perdrait probablement en temps 
passé à la nécessaire mise à jour de la documentation d'ex- 
ploitation. Le cas ne se pose pas avec un disque dur. 
Comme nous l'avons dit, un index séquentiel trié sur disque 
se prêtera mal aux opérations de mise à jour en temps réel, 
même si les décalages sont plus rapides qu'avec le fichier prin- 
cipal, puisque les enregistrements de l'index sont plus petits. 
En effet, la suppression du 1" enregistrement ou bien la créa- 
tion d'une clé de valeur faible entraîne la réécriture de tous 
les secteurs index. Compte tenu de ces réserves, c'est une solu- 
tion tout à fait opérationnelle, comme nous allons le voir. 

• Un exemple d'index entièrement sur disque 

Nous avons tous remarqué que beaucoup de pharmacies pos- 
sèdent des ordinateurs "de comptoir". 
Le travail de ces machines est le suivant : 

- Imprimer les factures subrogatoires (imprimés jaunes en 
3 exemplaires) qui permettront à la pharmacie de récupérer 
les sommes non payées par l'assuré social. 

Cet imprimé doit recevoir des informations fort diverses : 

Nom, adresse, n° de sécurité sociale 
Nom et NUMERO du médecin 
Caisse assurance maladie 
Mutuelle 

Régime de remboursement particulier (100 % vieillesse ou 

invalidité). 

Les médicaments vendus (prix, avec ventilation et cumul des 

montants remboursables et non remboursables). 

- A titre accessoire, renseigner la plus grande partie de 
la feuille de soins (nom, adresse, n° de sécurité sociale). 

- Créer un fichier Factures et un fichier Ordonnancier. 
L'application repose sur les fichiers DIRECTS suivants : 



- FICHIERS 

• Assurés 

• Médecins 

- Bénéficiaires * 

- Caisses, mutuelles 

• Médicaments 



Nbre fiches Oct/fiehe 



600 à 5 000 
100 à 1 000 

1 500 à 12 500 
50 à 200 

7 000 (environ) 



240 
64 

96 

384 
64 



Oct /fichier 

144 000 a 1 200 000 

6 400 à 64 000 

144 000 a 1 200 000 

19 200 à 76 800 

448 000 (environ) 



TOTAUX 



761 600 à 2 988 800 



A la lecture de ces chiffres, qui ne tiennent pas compte de la 
place prise par les fichiers factures et ordonnancier, on voit 
qu'un disque dur est nécessaire, pour une simple question de 
capacité. 

De plus, la rapidité d'accès du disque dur le rend bien préfé- 
rable aux disquettes pour l'application considérée. 



Il y en a un par fichier direct principal, à l'exception du fichier 
médicaments qui en a deux. 



En effet, on peut avoir à chercher un médicament soit par son 
nom, soit par son numéro d'identification inscrit, pour certains 
d'entre eux, sur l'emballage sous forme de code-barre. 

L'index alphabétique du fichier articles ainsi que les index des 

autres fichiers sont constitués d'éléments de 1 2 caractères ( 1 

caractères + 2 octets pour l'adresse). 

Ces index sont triés sur l'ensemble de l'élément (clé en majeur, 

adresse en mineur). 

La clé de recherche comprend de 1 à 10 caractères au 

maximum 



La mise à jour du fichier principal est immédiate. Celle de l'in- 
dex (ou des index pour les articles) est différée. 
Prenons la situation initiale suivante où le fichier principal est 
symbolisé par des "a", le fichier index par des "i". 

Index 



M I tll 1 IIM!!li!i!l!i!l)!!!l!!lt!!!i!i!i!: 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa Principal 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

La recherche d'un assuré se fait par recherche dichotomique 
dans l'index. Le nombre d'itérations sera au maximum : 

Log2 (nbre fiches) + 1 

Pour 8000 fiches, cela donnerait 14 itérations au maximum. 
Chaque fiche "Index" faisant 12 octets, chaque secteur en 
contient environ 42. L'index tient donc sur 190 secteurs. 
Au pire, il faudra Iog2(190) + 1 accès pour charger le sec- 
teur intéressant, soit 8 accès environ. 
Les 6 autres accès ne sont plus des accès disque, mais des 
accès en mémoire. Les performances du disque dur font que 
l'arrivée de l'information sur l'écran paraît, à l'opérateur 
humain, quasi instantanée. 



• Ajouts au fichier 

Le nouveau client est identifié par la "clé" suivante : 

nom + 2 premières lettres du prénom (par exemple 
MARTINJE) 

Cette clé est enregistrée dans chacune des fiches du fichier 
principal. La fiche nouvellement saisie est écrite en fin de 
fichier. Nous supposerons qu'il y a déjà 3027 enregistre- 
ments. 

( 3027 enregistrements ) 



IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIIIIIIItlIIIIIIIIIIIIIIIMIIII 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa a a a 
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa a a a 
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa a a a 
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa a a a 
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa a a a 
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa a a a 



Trois 

assurés 

ont été 

rajoutés. 

L'index 

n' a pas 

été 

modifié 

• Recherche d'une fiche non représentée à 

l'Index 
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La recherche est faite dans l'index avec les premières lettres 
du nom. Si cette recherche ne donne rien, une recherche 
séquentielle est lancée dans le fichier principal à partir de l'en- 
registrement 3028. L'argument de recherche utilisé est alors 
la clé "NOM + 2 lettres du prénom". 

• Technique de mise à four des index après ajouts 

En temps différé, les éléments d'index supplémentaires sont 
créés,, triés et, par fusion avec l'ancien index, donnent un index 
à jour qui a, de nouveau, le même nombre d'enregistrements 
que le fichier principal. 



Suppressions 

i suppressions sont faites par marquage de l'e 
nt principal, l'index n'étant pas modifié. Qu 



Les suppressions sont taites par marquage de l'enregistre- 
ment principal, l'index n'étant pas modifié. Quand cela 
devient nécessaire, une réorganisation des fichiers est faite. 
Sont recopiés les enregistrements principaux validés et les 
enregistrements index correspondants. 

• Le 

L'application, que nous avons vu tourner, a été programmée 
en BASIC compilé. 

Index en partie en mémoire 

Ils sont basés sur une structure de données en ARBRE. Rési- 
dent en mémoire un certain nombre de couples clé/adresse 
ainsi que l'adresse du "secteur" à charger lorsque la clé n'a 
pas été trouvée dans le secteur "racine". 
Leur avantage est de permettre une mise à jour en temps réel 
de l'index et du fichier, avec une place mémoire limitée. 
L'index peut croître indéfiniment, dans les limites du disque, 
tout au moins. Seules les performances en souffriront, car il 
faudra descendre plusieurs niveaux de l'arbre avant de trou- 
ver, pour le charger, le secteur intéressant. Nous y revien- 
drons, mais auparavant, nous allons parler plus en détail des 
index tout en mémoire. 

Index entièrement en mémoire centrale 



C'est le plus simple à concevoir et à mettre en œuvre. C'est 
aussi le plus rapide (de très loin) si on met à part le temps 
nécessaire au chargement initial de l'index à partir du disque. 
Malheureusement, Ta taille de ce genre d'index est limitée par 
la place disponible en mémoire. 
Aussi, risque-t-on de se heurter aux difficultés suivantes : 

- Quand un fichier augmente de taille, l'index croît en pro- 
portion. Pourra-t-on lui allouer, le moment venu, le supplé- 
ment de place nécessaire ? 

■ Lorsqu'on perfectionne un programme, celui-ci tend à gros- 
sir. Que devient l'index là encore ? 

- Lorsqu'on désire ouvrir plusieurs fichiers indexés en même 
temps, cela risque de n'être possible qu'avec des index peu 
encombrants, donc correspondant à de petits fichiers. 

En conclusion, ce genre d'index ne peut être envisagé qu'avec 
une mémoire confortable et des fichiers qui voudront bien res- 
ter de taille raisonnable. Avec ces restrictions, il peut être 
extrêmement utile. 

• Index "CLE SEULE" 

Le principe en est le suivant. Partons du mini-fichier ci-après 
sur disque, auquel nous voulons accéder par le nom. 



78 



Ranq 

1 

2 

3 

4 

5 

etc.. 

309 

31 e 

311 



ftaeroSreu No* Prenn Profession 

13W?7511«7BDUPONT HE NBIOURSFSE COtCRCANT. , 

2«8383B87«3VMJI0nTE M.ICE CHIIIISTE..., 

13W92657982HERNANDE7. PIERRE. ... INSNIEUR. . . 

- (vide) 

14H9841»72«6YVER JAC6UES. . .ARTISAN 



2M8324231876ARB06AST JULIE ICDECIN. . , 

16712«B12121CUISINIER PAU. ETUDIANT. , 

137B332«6712eVALr»NT ERIC AJUSTEUR.. 



Rappelons que le rang, analogue à un indice, est l'endroit 
où est la fiche, mais ne figure pas dans la fiche elle-même. 
Les points figurent les espaces inutilisés (la taille de la rubri- 
que NOM ne change pas quelle que soit la longueur de celui- 
ci). 

Le numéro de sécurité sociale ASCII prend 13 octets, mais 
on peut le condenser sur 6 octets comme nous le verrons. 
Nous lisons le fichier et ne retenant que les 6 premiers carac- 
tères de la zone NOM, nous construisons la table suivante : 

1 DUPONT 

2 VALMON 

3 HERNAN 

4 - <- STRINGS(6,255) ou STRINGS(6,0) 

etc. 

309 ARBOGA 

310 CUISIN 

311 VALMON 

Notons les points suivants : 

I - La taille en mémoire de la table sera au maximum : 
31 1 x(6+3) 3 étant pour le descripteur de chaîne. 

Ce qui fait 2799 octets. La place restant en mémoire dépend 
évidemment du nombre d'octets pris par le programme pro- 
prement dit et les autres données. 

II est possible, par un traitement particulier de condenser 3 
lettres dans deux octets (un entier), et par voie de consé- 
quence, 6 lettres dans 4 octets. 

Nous aurions alors un index de 31 1 x4= 1244 octets seule- 
ment. Nous essayerons de reparler de cette question. 

2-6 caractères sont largement suffisants en règle générale. 
Mais dans les grands fichiers, le nombre d'homonymes peut 
être très grand (il y a environ 2400 MARTIN à Paris). 
Dans le cas de ces grands fichiers, une clé composite sur 6 
caractères pourrait être constituée par le début du nom + 
initiale prénom + n° dans la rue. 

Par exemple : 

MARF12 

serait certainement plus efficace aue : 

MARTIN 

pour trouver M. François MARTIN habitant 12, rue... 

3 - On note deux homonymes dans l'index (VALMON en 2, 
VALMON en 3 1 1 ) . L'index n'étant pas trié, ils n'ont aucune 
raison particulière d'être à côté l'un de l'autre. 



Le principal intérêt de cet index est son faible encombrement. 
En effet, l'adresse est implicite, chaque élément de l'index 
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ayant pour rang (indice) celui de la fiche dans le fichier prin- 
cipal. On gagne donc deux octets par élément d'index. 
En l'absence de tri, la recherche ne peut être que séquentielle. 
La lenteur du BASIC oblige pratiquement à programmer cette 
recherche en langage machine. 

Les additions, suppressions et modifications se font très faci- 
lement : 

- Additions 

On cherche le premier enregistrement vide dans l'index. Ici, 
il a le rang 4. On y écrit la clé. On écrit la fiche concernée 
au rang 4 du fichier principal. 

Notons qu'il est toujours sage de réutiliser en priorité les pla- 
ces vides de rang le plus bas. 

S'il n'y a pas de place récupérable, on ajoutera la fiche et 
sa clé en extrémité de fichier et d'index. 
Si la table index est pleine, il faudra sauvegarder celle-ci sur 
disque, puis la recharger après modification de la DIM (si c'est 
possible). 

- Suppressions 

On efface la clé dans l'index, la fiche correspondante dans 
le fichier (par des zéros binaires, par exemple). 

- Modifications 

Un changement de nom (par mariage, par décision parue au 
Journal Officiel) ne pose pas non plus de problème de déca-, 
lage, les changements se faisant en parallèle dans l'index et 
le fichier. 



• Les défauts de ce type d'index 

Les homonymes ne sont pas consécutifs, mais répartis, de 
façon aléatoire, sur toute la longueur de la table. 
Connaître leur nombre nécessite une exploration complète de 
celle-ci. Passer d'un homonyme au suivant implique qu'on 
relance la recherche alors que sur une table triée, il suffirait 
défaire INDICE = INDICE + 1 ou -1 suivant qu'on veut trai- 
ter la fiche suivante, ou revenir à la précédente. 
De plus, il va de soi que le temps d'accès DANS L'INDEX 
croît du début à la fin de la table. 

En bref, ce type d'index n'est recommandable que dans les 
cas suivants : 

- clé : indicatif (pas d'homonymes) ; 

- recherche : programme en langage machine. 

On trouvera en listing 1 le programme de validation d'une 
routine en langage machine (méthode de la sentinelle), pour 
une table d'entiers. Cette table est valorisée 1,2... H (N étant 
la Dim - 1). 
Comparée à celle du BASIC, la rapidité est saisissante. 

Temps langage machine 



Clé 


Temps BASIC 


Temps 


1 


0.007 


0.007 


100 


0.280 


0.010 


1000 


2.750 


0.020 


5000 


13.740 


0.060 


10000 


27.470 


0.120 



La "médiocre" performance pour trouver la clé 1 tient au fait 
qu'une seule itération porte le poids (ou plutôt la durée) du 
lancement de la routine, passage des paramètres par l'ins- 
truction CALL etc. 

La clé ne va pas de -35768 à 32767. Elle est saisie dans une 
variable réelle entre et 65536 et cette valeur convertie en 
entier par la fonction : 



DEF FN n65(n!) = nl + (ni > 32767)* 65536 
La fonction inverse étant : 

DEF FN n!(n65) = n65 - (n65<0)#65336 

La valeur de la clé correspond aux enregistrements vides. 
n'est jamais attribué comme indicatif de fiche en cours. 

• Numéro de sécurité sociale 

Le listing 2 présente une routine de recherche séquentielle ana- 
logue, mais sur le numéro de sécurité sociale. 
On notera que ce numéro peut être contenu dans 3 entiers, 
soit 6 octets au lieu de 8 avec une variable réelle double pré- 
cision, ou 13 (sans compter les descripteurs de chaînes) sous 
forme de chaîne ASCII. 

Le contrôle de la saisie par NOMBRE (on dit souvent "clé") 
de contrôle est effectué. Cette vérification est basée sur la com- 
paraison du nombre de contrôle et du reste de la division du 
numéro de sécu par 97 (plus exactement le complément à 97 
de ce reste). 

Un point important à noter à propos de la saisie d'un numéro 
aussi long. Des espaces ou séparations sont indispensables 
sur le bordereau de saisie. L'opérateur doit pouvoir frapper 
avec (cela facilite la relecture), ou sans espace.. 




20 ' LISTING 1 

30 ' Rech seq. lang. mach. (méthode de la sentinelle) >LC 

40 ' Le Programme se termine en faisant 'BREAK' >LD 

50 . > LE 

60 ' (c) Bernard BESSE - Janvier 1988 >LF 

70 . > LG 

80 MODE 2 >CB 

90 DEFINT A-Z:rl=0' ri variable ds laquelle l'indice se >ND 

ra retourne 

100 DEF FN n(n!)= n! +(n!>32767) #65536' met 1 nbre entr >BY 

e et 65535 ds 1 entier 

110 GQSUB 470' chargt. routine SEQ1 >HC 

120 PRINTTa DIM peut aller jusqu'à " ; INT (FRE (0) /Z) -100 >YZ 

; "environ 

130 INPUT "Nbre Eléments de la table";ne >TC 

140 stnl=ne+l: DIM t(stnl)' * s >VZ 

tnl comme SenTiNeLle 

150 PRINT"FRE(0) =";FRE(0) >VQ 

160 linF200:IF ne<=lim THEN 180 >YR 

170 PRINT"Attente";:PRINT USINE"####.#"ï0.0022*ne;:PRIN >GD 

T" 5ec...";:hl!=TIME 

180 : >ZC 

190 FOR j=0 TO ne: t(j)=j:NEXT y * Init. rapide de la >ZA 

Table 1, 2, etc.. 

200 ' >RC 

210 'Pour charger avec FNn on pourrait utiliser la lign >RD 

e ci -dessous 

220 'x=0: FOR j=0 TQ ne: t(j)=FNn(x+j):NEXT j" * Init. >RE 
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Table 1+1, X+2, etc.. 

230 ' >RF 

240 IF ne>lim THEN PRINT". . . "; :PRINT USINE"##.#"; (TIME- >KF -, 

ht! 1/300 

250 ■ m 

260 ' Fin Init - Début Traitement >RJ 

270 PRINT " m 

280 : >ZD 

290 INPUT"CLE";cl! >NQ 

300 IF cl!<0 OR cl!>65535 THEN 280 >YA 

310 cI=FNn(cl!) >DB 

320 t(5tnl)=ci: * Valorisation Sentinel >CA 

le 

330 dep=l >FJ 

340 hl!=TIME >FD 

350 CALL àseql(l),cl,dep,àt(OS,àrl >CC 

360 PRINT USING"t.tt#«": (TIME-hl ! 1/300 >E» 

370 IF rl=stnl THEN PRINTTas Trouve (Sentinelle)" ELSE >TB 
PRINTTROUVE Rang";rl 

380 SOTO 280 >ZH 

390 END m 

400 dep=rl+l: 6DT0 >CALL àseqlilK' * En cas d'homonyme >BN 
s relancer la recherche 

410 END >RJ 

420 ■«=«=»=» >œ 

430 :RE«<SE01> >CC 

440 CALL àseqlill,cl,dep,àt!0),àrl >CC 

450 RETURN >ZE 

460 ' m 

470 :REM<SE01> >CG 

4B0 «H=*l "iRESTORE 510: READ nB:nl6=n8ç2::DIM seql >EX 

Inl6) 

490 FOR k=l TO nl6:READ lt,mt:NID$(ml«,2i=mt:NID*(mlt,4 >NH 

)=l*:seql(k)=VflL(ml$):NEXT k 

5O0 RETURN >ZA 

510 DATA 52 >NJ 

520 DATA DD,6E,02,DD,66,03,DD,5E,04,DD,56,05,DD,4E,06,D >ZE 

D 

530 DATA 46,07, E5,19,19,2B,23,7E,B9, 23,20. FA,7E,BB,20,F >ttl ji 

6 

540 DATA Dl, 13,87, ED,52,CB,3C,CB,1D,EB,DD,6E,00,DD,66,0 >ZU 

1 

550 DATA 73,23,72,09 

560 ###### 




LISTING 2 

Rech seq. sur No Sécurité Sociale 

Le Programme se termine en faisant 'BREAK' 



(cl Bernard BESSE - Janvier 1988 



>LA 

>LB 
)LC 
>LD 
>LE 

:>lf 

>LG 



80 MODE 2 >CB 

90 DEFINT A-Z:rl=0' * ri rtour i >ND 

ndice par routine 

100 PRINTTa DIX peut aller jusqu'à ";INT!FRE(0)/6)-100 >ZA 

; "environ" 

110 INPUT "Nbre Eléments de la table";NE >TA 

120 stnl=ne+l: DIM T(2,stnl) ' * stnl corn» >NA 

e SenTiNeLle 

130 PRINT"FRE(0i =";FRE(0i >VN 

140 lim=200:IF ne<=lim THEN 160 >VM 

150 PRINT"Attente";:PRINT USIN6"t**.#";0.00283*ne;:PRIN >HR 

T" sec...";:hl!=TI«E 

160 : >ZA 

170 FOR M TO NE: T(0,Ji=J: NEXT J' * Init. T(0, >AQ 

.) ....1 2, etc 

180 ' m 

190 'les Nos bidons sont donc 00 01 00 000 000, 00 >TA 

02 00 000 000, etc.. 

200 ' >RC 

210 IF ne>Iim THEN PRINT". .."::PRINT USIN6"t#,#": (TIME- >KC 

hl!)/300 

220 GOSUB 800' chargt. routine seq2 >HB 

230 PRINT"Saisie CLE: on peut frapper un nbre <=";ne:"o >LC 

u bien UN TOI" 

240 PRINT" NUMERO (même avec des espaces). I >TE 

1 sera en Sentinelle" 

250 ' >RH 

260 ' Fin Init - Traitement >RJ 

270 PRINT " >MT 

280 : >ZD 

290 LINE INPUT'No secu : ";nr$ >BB 

300 intg=0:nc=13:60SUB 690: IF er=-l THEN 2B0 >LB 
310 IF chif>5 AND chif<>13 THEN PRINT CHR*(7i;"nbre de >CA 
chiffres":G0T0 280 

320 ' >RF 

330 IF chif<6 THEN c(0)=VAL(nr*l:c(l)=0:c(3)=0:G0TD 440 >VE 

340 ' enlevé les espaces >RH 

350 n2»=STRIN6*(13,32> >0P 

360 p=lîd=l >VH 

370 : >ZD 

380 x=INSTR(p,nr*, M "):IF X=0 THEN ï=LEN(nr*)+l >QB 

390 MD*in2l,j,n-p)=MID*(nr*,p):j=j+x-p:p=K+l >PL 

400 IF x>=LEN(nr») THEN 420 >UL 

410 GOTO 370 >ZB 

420 : >YK 
430 c(0)=VAL(LEFT*(n2*,5)):c(l)=VAL(MID*(n2t,6,4)):c(2) >ZW 
=VAL(RIGHT*(n2t,4)) 

440 : >ZB 

450 PRINT "3 ENTIERS :";c(0);c(l);c(2) >FB 

460 r!=0 >VA 

470 FOR K=0 TO 2 >NA 

480 R!=C(K) +10000*R!:R!=R!-INT(R!/97)*97 >GL 

490 NEXT K >PD 

500 R!=97-R! >YB 

510 PRINT'cle CTRL suggeree";R! >FU 

520 INPUT"CLE CONTROLE"; CTRL >ZB 



80 
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530 IF CTRL=R ! THEN 560 >QZ 
540 PRINT Mt(7);: INPUT"CLE CTRL (enter — > No secui " >Mfl 
;CTRL 

550 IF ctrl<=0 THEN 280 >QT 

560 : >ZE 
570 T (0, stnl ) =c (0) : T ( 1 , stnl i =c i 1) : T (2, stn 1 » =c (2) ' * S >TK 
entinelle 

580 dep=i >GF 

590 : >ZH 

600 hl!=TIME >FC 

610 CflLL àseq2!li,c(0i,cili,c(2),dep,àt(0,0),àrl >QM 

620 PRINT USING ,, St.###"; (TIME-hl ! 1/300 >EV 
630 IF rl=5tnl THEN PRINT"Non-Sentinelle"ELSE PRINT"TRD >¥C 
UVE P0S M ;rl 

640 GOTO 280 >ZB 

650 END >TE 
660 dep=rl+I: GOTO 590' *si homonymes on peut relancer >QC 
la recherche 

670 END >T6 

680 '*#***#*++***** >t£ 

690 :REM<CTRLNUM> >NW 

700 er=0:chif=0: IF nr«=""THEN 770 >AB 

710 FOR k=l TO LEN(nr$) >QZ 

720 s=INSTR("0123456739 °,MID$inr$,k, 1») >HB 

730 IF s=0 THEN 770 ' car. >M« 

interdit 

740 IF :<<!! THEN chif=chH+l' chif >WF 




tre 

750 NEXT k 

760 RETURN 

770 : 

780 er=-l:PRINT CHRK7I; : RETURN 

790 ' 



>PC 
>ZJ 
>ZH 
>AU 
>T8 



800 iREH<seq2> - CflLL seq2,c(0),c!l),c(2),dep,àt (0,0), à >AU 

ri 

810 ' seq2(), k, ]», m», mit, nié, n8, *«« >RK 

820 ml*="& ":RESTDRE 850: REflD n8:nl6=n8c2::DIM seq2 >ED 

Inl6! 

830 FOR k=l TO nl6:REflD l*,«*:IHD$taI*,2)=in«:l1ID$(il$,4 >M6 

)=l*:5eq2(k)=VAL(«il*):NEXT k 

840 RETURN >ZH 

850 DATA 86 >gc 

860 DATA DD,6E,00,DD,66,01,E5,DD,6E,02,DD,66,O3,DD,4E,0 >ZN 

4 

870 DATA DD,46,05,C5,CE,21,CB,10,09,09,09,C1,0B,2B,2B,2 >ZC 

B 

880 DATA 2B,2B,23,23,23,23,03,23,7E,DD,BE,0A,23,20,F3,7 >YE 

E 

890 DATA DD,BE,0B,20,E»,23,7E,DD,BE, 08,23, 20, E7,7E,DD,B >AB 

E 

900 DATA 09,20,E1,23,7E,DD,BE,06,23,20,DB,7E,DD,BE,07,2 >ZD 



910 DATA D5,E1,71,23,70,C9 >TW 

920 '###### >TB» 



SOUS QUELLE 

ETOILE 
SUIS-JE NE ? 



^Ç^^^ 



350 F 

La disquette pour CPC 

HORLOGE 
ASTRALE 



PREVISIONS 
ASTRALES 

Un logiciel qui vous fera une étude prévisionnelle approfondie 

d'une période donnée , un jour, un mois, un an ou plus; 

(analyse des transits des planètes sur le ciel natal) . 

UOU I! 1 2 disquettes pour CPC 6128 



MIROIR ASTRAL et PREVISIONS ASTRALES existent 
aussi pour PC au prix de 420 F chacun. 



* Carte du ciel avec copie d'écran sur imprimante. 
Horloge permettant de suivre les positions 
planétaires en temps réel. 

Calcul des Révolutions solaires. 

* Méthode JONAS : calcul des jours de fécondité astrale. 

* Nombreux calculs astronomiques 

(lever et coucher de Lune et de Soleil, éclipses,.,.) 



MIROIR ASTRAL 

Calcul et analyse du ciel natal. 

Une astropsychanalyse de 15 pages sur imprimante. 

Un logiciel qui vous surprendra par sa profondeur... 

UaII Sf LA DISQUETTE POUR CPC. 



BON DE COMMANDE 

A renvoyer à URANIE Software 

B.P. 84 - 831 1 SANARY - Tél. 94 74 32 00 

Nom : 

Adresse : 



Ordinateur : 

Je vous commande : 

□ 1 logiciel "MIROIR ASTRAL" 

□ 1 logiciel "PREVISIONS ASTRALES" 

□ 1 logiciel "HORLOGE ASTRALE" 
ci-joint mon règlement par chèque bancaire 
ouC.C.P (port GRATUIT). 



s 
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ANIMATION 
ET GESTION 
SPRITES 



Michel 
MAIGROT 



Pour des raisons de place, il ne nous est pas possible de publier le 
listing assembleur commenté correspondant à l'article. 
Les personnes qui voudraient tout de même obtenir ce listing le trou- 
veront sur la disquette CPC 17 ou sur la cassette 34. 



REACTIONS AUX 
RENCONTRES AVEC UN 
AUTRE SPRITE 

Là, c'est plus dur, accrochez-vous 
aux sprites, j'enlève ies octets ! Pen- 
sez aussi à regarder la figure 2. 

Test sur les couleurs. 
Encore une fois, je ferai référence à 
l'exemple d'animation sur 3 plans 
différents. Ce dernier teste la valeur 
d'un pixel afin de déterminer s'il doit 
sortir sur l'écran. Nous pouvons 
donc imaginer un test basé sur le 
contenu de l'écran à la position QUI 
VA ETRE OCCUPEE par le sprite en 
cours de déplacement. Ce sera d'au- 
tant plus aisé que le programme pré- 
sent ne considère qu'un fond uni. 
Donc toute position sur un octet 
écran contenant est valide, sinon 
il y a déjà quelqu'un sur la place. U n 
détail saute aux yeux : il est ainsi 
possible de savoir si la place est libre 
ou occupée, mais impossible de 
déterminer si l'emplacement est 
occupé par un porte-avions ou un 
poisson rouge. On pourrait y remé- 
dier en fixant une couleur spécifique 
à certains sprites (par exemple, 




S3=ï> ; 



entourer le sprite joystick de blanc et 
ne jamais entourer les envahisseurs 
de blanc), et tester les valeurs des 
pixels pour savoir de qui il s'agit. 
Cela marche, mais on se trouve rapi- 
dement limité en couleurs. Cette solu- 
tion simpliste n'a été retenue que 
pour reconnaître les mines (INA- 
CEXPLdans TESTMISS). 

Test sur les adresses. 
C'est plus compliqué et justifie plei- 
nement l'emploi d une table de ges- 
tion. En effet, cette dernière contient 
en permanence les positions respec- 
tives et l'encombrement de chaque 
sprite. Donc, il suffit de prendre la 
future adresse de visualisation du 
sprite, et en commençant par le pre- 
mier bloc de la table de gestion cher- 
cher si ce point se trouve à l'intérieur 
du rectangle dont les coordonnées 
sont contenues dans un des blocs 
gestion. 

Si le dessin se déplace vers le haut 
ou à gauche, il est plus rapide de 
tester VISADRES du sprite en mou- 
vement par rapport à COINOPPO 
contenu dans le bloc. S'il se déplace 
vers le bas ou à droite, ce sera exac- 
tement l'inverse. Tant qu'aucune col- 
lision n'est détectée, un compteur est 
incrémenté. Ceci permet donc de 
connaître le numéro de sprite ren- 
contré. (Pour des cas particuliers, un 
numéro spécifique pourrait être 
placé dans la case ETÀTSPT). En cas 
de test réussi, aller chercher ce 
numéro dans le bloc de gestion où 
s'est arrêtée la recherche et agir en 
conséquence. 



C'est mieux, mais ne vous faites pas 
d'illusions, c'est plein de défauts. 

Prend du temps et doit être exécuté 
à chaque déplacement, donc un 
coup dur pour la vitesse d'exécution 
générale. 

^Çe oui condamne à mes yeux ce 
type de test : Il ne considère qu'un 
rectangle. Donc, si l'un des deux 
sprites ne remplit pas entièrement 
cette zone, la collision est enregis- 
trée alors qu'il y a encore un espace 
physique entre les 2. Bonjour la pré- 
cision... 

Le test utilisé par BLOODY 
INVADERS : 

Il semble qu'une loi fondamentale de 
l'informatique postule : si deux 
méthodes différentes ne sont qu'à 
peu près satisfaisantes, combinez les 
deux pour résoudre le problème. 
Elle se vérifie ici : il suffit d'abord de 
balayer une ligne (ou colonne) à 
l'endroit qui va être occupé par ie 
motif (BCLTSTCB-BCLTSTCH- 
BCLTSTCG & BCLTSTCD) dans les 
routines déplacement. Si la place est 
libre, rien ne se passe ; sinon, l'a- 
dresse écran où le test se révèle posi- 
tif est préservée dans POSCOL et le 
programme est dérivé vers la routine 
QUELSPT qui effectue le test décrit 
en 2. Pour ne pas rendre cette rou- 
tine illisible, le test ne tient pas 
compte du sens de déplacement et 
ne considère que POSCiOL par rap- 
port à VISADRES des sprites de la 
table. Notez qu'il faut toujours tes- 
ter les lignes avant les colonnes, c'est 
beaucoup plus rapide. 

Notes 

Pour des raisons esthétiques, la plu- 
part des sprites ont un nombre de 
pixels impair. Le test décrit ci-dessus 
ne considérant que la case mémoire 
écran complète, il laissera parfois un 
vide lors dès déplacements latéraux. 
(C'est fort peu visible!. D'autre part, 
si le dessin ne remplit pas entière- 
ment le rectangle, le test présentera 
le même défaut que s'il se faisait uni- 
quement sur les adresses écran. 
Dans ce cas, il sera nécessaire 
d'améliorer le test sur les couleurs de 
manière à vérifier 2 octets. 
Tester l'octet qui va se déplacer. S'il 
est à 0, le déplacement est possible, 
sinon tester l'octet qui va recevoir 
celui à déplacer. Si ce dernier est à 
0, le mouvement est toujours possi- 
ble. Si les deux contiennent une cou- 
leur, une collision va se produire. 
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Autre solution plus complexe : effec- 
tuer le calcul de COINOPPO, non 
par rapport à la taille totale du rec- 
tangle mais par rapport au nombre 
de lignes et colonnes contenant des 
couleurs. Dans ce dernier cas, lors 
de la création des images avec sur- 
gene, les colonnes vides devront être 
celles de droite, les lignes vides, les 
lignes basses. 

Dans le schéma test sur les adresses 
écran, on constate que lorsque la 
recherche en colonne à subi un é- 
chec, au lieu de quitter, elle retourne 
sur la recherche des lignes. C'est 
normal, seul l'octet fort est testé à la 
première recherche. Or, on retrouve 
dans la mémoire écran 4 lignes dif- 
férentes (par exemple COOO-C050- 
COAO-COFO) séparées par un inter- 
valle de 8 lignes ayant le même octet 
fort (MSB). Si votre sprite occupe 
plus de 8 lignes de haut, et que sa 
position (VISADRES) est (toujours 
par exemple) #C00B, une collision 
en # C05B (sur sa 9° ligne) ne pour- 
rait être prise en compte sans ce 
branchement. POSTEST est donc 
nécessaire pour garder la trace de 
l'endroit ou une équivalence MSB 
est trouvée, afin de pouvoir éven- 
tuellement reprendre la recherche à 
ce point. 

Il aurait été plus évident de balayer 
la totalité du sprite à tester de gau- 
che à droite et de haut en bas et en 
comparant l'adresse position com- 
plète avec POSCOL mats quelle len- 
teur ! Et surtout quel manque de 
style. Par contre, il serait plus élé- 
gant et plus rapide d'ajouter direc- 
tement 80 à POSTEST pour avoir 
tout de suite l'adresse suivante cor- 
recte, et de limiter le nombre de nou- 
velles tentatives à effectuer en fonc- 
tion de la hauteur du sprite. Je viens 
juste d'en prendre conscience. No- 
body's perfect ! 

Dernier détail. 

Il est intéressant de pouvoir distin- 
guer à quel groupe (envahisseurs, 
joystick, missile) appartient le sprite 
qui vient d'en rencontrer un autre. Le 
contenu de la variable SPTAFFICH 
est utilisé en entrée de QUELSPT, 
pour déterminer quelle routine spé- 
cifique il faut appeler. (Voir varia- 
bles). 

LA BONNE REACTION 

AU BON MOMENT MMMi 

• Remplacement d'un envahisseur 



& 



Tèsà de cotation sur tes coûteux 




frlnclpe de recherche sur me adresse écran - 
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par une explosion : 

cela ne peut se produire que lors 

d'une rencontre avec un missile. 

• L'envahisseur rencontre un missile 
(SUPPRIME) : 

dans ce cas, c'est simple car le pro- 
gramme contient en SPTADRES tous 
fes paramètres de l'envahisseur. 
Normalement STOCKDIR ne con- 
tient qu'une valeur de 1 à 8 : 
mettons-y 128 et cela suffira pour 
signaler au programme que l'enva- 
hisseur concerné a eu un problème. 
Modifions IX pour ne pas revenir sur 
CALL NC, DIRHAS (ce qui annule- 
rait l'opération effectuée). SPTA- 
DRES contient l'adresse des octets 
composant le sprite envahisseurs, 
donnons-lui l'adresse des octets com- 
posant l'explosion. Au retour, le 
dIoc SPTADRES modifié est recopié 
dans le bloc de gestion et la routine 
MOVEAUTO affichera une explo- 
sion à la dernière position enregis- 
trée pour ce sprite. 

• Le missile rencontre un envahisseur 
(SUPPRIME 1) : 

le principe est le même mais la rou- 
tine un peu plus compliquée car 
SPTADRES contient les paramètres 
du missile et il faut aller chercher 



ceux de l'envahisseur dans la table 
gestion. 

Dans les 2 cas, SUPPRIM2 s'occupe 
d'ôter un envahisseur (NBSPACTI) 
et ajoute un point au score. 
Mais pourquoi le missile n'est-il pas 
supprimé par ces routines ? Voilà 
une question, qu'elle est bonne I 
C'est simple : une explosion sera 
affichée avant que le missile ne soit 
à nouveau sollicité. Comme la ren- 
contre d'un missile et d'une explo- 
sion supprime le missile à quoi bon 
se fatiguer... 

Gestion d'une explosion. 

Pour être un tant soit peu réaliste, 
une explosion doit grandir et se ré- 
sorber. Donc 3 sprites de 3 tailles 
différentes. STOCKDIR contient au 
départ 1 28. A chaque tour de bou- 
cle MOVEAUTO, il est décrémenté. 
Chaque fois qu'il atteint une valeur 
critique, l'adresse du groupe d'oc- 
tets à sortir à l'écran est changée. 

Nous avons donc affichage succes- 
sif d'une série de sprites donnant l'il- 
lusion d'une animation. A la fin de 
la série, STOCKDIR est mis à pour 
que la boucle MOVEAUTO recon- 
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naisse le sprite comme détruit. Ordre 
pour 5 opérations : SPEX1,SPEX2, 
SPEX3, SPEX2, SPEX1. 
La suppression d'un missile est basée 
sur le même principe que celle d'un 
envahisseur. 

La destruction de la totalité des 
envahisseurs marque la fin de la par- 
tie. Pour faire plus joli, la variable 
NBEXPLOS oblige le programme à 
terminer le cycle des explosions en 
cours avant le retour au BASIC. Ce 
n'est pas le cas lorsque vous êtes 
détruit. 

Avant de supprimer un missile ou un 
envahisseur il doit être réaffiché une 
dernière fois. En effet, le test de col- 
lision ne considère pas le point où la 
collision se produit mais celui où la 
collision VA SE PRODUIRE ! Ce 
dernier déplacement comble un 
éventuel vide résiduel (voir tests col- 
lision). C'est donc plus agréable à 
l'œil. 

D'autre part, il faut tenir compte 
qu'en cas de collision à mi-chemin 
entre 2 points STEP, les adresses de 
visualisation sont quand même modi- 
fiées, pour permettre un déplace- 
ment à la limite du possible. Donc ne 
pas réafficher préalablement et le 
sprtte ne serait pas entièrement 
recouvert par l'explosion. C'est le 
cas du sprite joystick où cette correc- 
tion n'est pas effectuée. La routine 
EFFACE et son appel sont donc inu- 
tiles. J'ai oublié de les supprimer 
avant d'imprimer le listing et de 
créer le code DATA. (Utilisateurs 
assembleur, attention, les omettre 
modifierait la position du contrôle). 

RESURRECTION DES MORTS 

Pour justifier pleinement son nom, le 
programme remet en jeu (selon une 
temporisation aléatoire), les enva- 
hisseurs que vous avez eu tant de 
mal à détruire. Les blocs de gestion 
de ceux-ci étant complètement modi- 
fiés par l'explosion, ils doivent être 
réinitialisés dans les routines 
NEWINVAD et RESURECT. 

DIRECTION DES MISSILES 

Le programme connaît 3 modes de 
tir différents : 

• Le missile est toujours tiré vers le 
haut. 

• La direction du missile est celle don- 
née par le test joystick. Si ce 
test = 0, (pas de déplacement}, le 
missile est tiré vers le haut. 
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• Comme précédemment, mais si 
vous ne bougez pas, le missile part 
dans la dernière direction enregis- 
trée par le joystick. 

LES VARIABLES DE BLOODY 
INVADERS 

Seules les variables ayant une 
importance stratégique sont données 
dans ce chapitre. Les valeurs des 
adresses sont écrites dans le listing 
assembleur et permettront aux utili- 
sateurs de DATAS de modifier le 
contenu de ces dernières avec des 
POKES judicieux. 

• TABLESP : c'est le début des don- 
nées concernant les envahisseurs. Le 
premier octet correspond au numéro 
du sprite à sélectionner dans la table 
des sprites, les deux suivants à 
l'adresse écran où il s'affiche pour 
la 1 re fois. Vous pouvez modifier à 
loisir cette table dans les limites 
suivantes : 

• Le numéro du sprite à afficher doit 
exister dans la table de sprites (Ni 
ni > NBSPT). 

- L'adresse qui suit doit être une 
coordonnée écran et être calculée de 
manière que le sprite ne déborde 
pas de l'écran. 

• Le nombre de blocs donnés (3 
octets) doit être égal ou supérieur au 
nombre maximum (NBSPMAX), 
d'envahisseurs à animer. 

NOTE. Pour plus de lisibilité, les 
adresses écran sont "en clair", la 
routine BCLPARA en tient compte. 
N'oubliez pas que normalement le 
Z 80 range l'octet faible (LSB) en 
premier et que dans son langage, 
j'aurais dû écrire DEBF #01,#C0 
pour l'adresse écran #C001. 

• TABLEJOY : même chose que 
TABLESP mais ne concerne que le 
sprite joystick, donc toujours 1 seul 
bloc de 3 octets. 

• TABLEXP : table des sprites explo- 
sions. Comme ces dernières doivent 
apparaître là où un sprite est détruit, 
il est inutile de déterminer une 
adresse écran préalable. Seul le 
numéro de sprite correspondant au 
dessin doit être donné. Le pro- 
gramme utilise 3 dessins pour animer 
une explosion. Si vous désirez modi- 
fier ce nombre, vous devrez modifier 
en conséquence la routine 
EXPLOSE. 

• NUMEXPLO : contient les numéros 



de sprites explosion à transférer 
dans TABLEXP. TABLEXP pourrait 
être paramétrée directement dans la 
version actuelle de ce programme. 
N'est utile que si vous voulez y 
apporter des modifications impor- 
tantes. (Par exemple, utiliser une 
table de sprites avec des envahis- 
seurs de tailles différentes et donc 
des dimensions d'explosion varia- 
bles. Il vous faudra alors plusieurs 
tables NUMEXPLOI. 2... qu'une 
instruction LDIR mettra en place au 
bon moment dans TABLEXP). 

• NBEXPLO : nombre de sprites 
explosions à afficher successivement. 
Initialisé à 3. Toute modification doit 
se répercuter sur NUMEXPLO & 
EXPLOSE. 

• FLAGEXPLOS : nombre d'explo- 
sions en cours. 

• STEP X & Y : varier l'angle des 
diagonales en modifiant STEPY, 
accélérer le jeu en augmentant les 2 
(Au-dessus de Y= 12 &X = 3, abso- 
lument injouable). 

• VJOY : répétition de la boucle de 
déplacement et d'affichage du sprite 
joystick. Le programme accomplira 
VJOY déplacements avant de repas- 
ser la main aux envahisseurs. 

• VAUTO: idem que VJOY mais 
pour les envahisseurs. Dans la 
mesure où il est impossible de s'en 
tirer si les envahisseurs sont plus 
rapides que vous, (essayez pour 
voir !...), ce paramètre restera à 1 . 

• VMISS : idem pour les missiles. Si 
VMISS < = VJOY, vous risquez 
d'entrer en collision avec eux. 

Note. Tout abus sur ces 3 paramè- 
tres (>5) entraîne une animation 
saccadée. 

• NBSPMAX : le nombre total d'en- 
vahisseurs à gérer. Initialement 20 
sprites. Ce nombre peut être diminué 
sans problème. Pour l'augmenter, 
ajouter autant de nouveaux blocs à 
TABLESP. Moins il y en a, plus le 
programme se déroule rapidement. 
Au-dessus de 30 sprites, vous com- 
mencez à ne plus savoir où vous 
êtes. Pour plus de 30, créez une 
table avec des sprites plus petits d'un 
tiers pour ne pas surcharger l'écran 
et avoir une vitesse de jeu accepta- 
ble. 
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• NBSPACTI : le nombre d'envahis- 
seurs en service. Utilisé par le pro- 
gramme. 

• ADSPTAFF : permet au pro- 
gramme de connaître directement 
"adresse de début du bloc gestion 
du sprite en cours de traitement. 
(Evite de recalculer cette dernière si 
on en a besoin à un moment donné}. 

• POSMIS : début des 4 blocs de 
gestion relatifs aux 4 missiles. La 
position de ces derniers dépendant 
de la position du sprite joystick, les 
adresses POSMIS & COINMIS 
n'ont pas a être initialisées. 

• TABLEMIS : les octets composant 
votre missile. (Mini table de sprites) . 
Vous pouvez modifier forme et cou- 
leur du missile ici même. Si vous ' 
modifiez aussi les dimensions, pen- 
sez à retoucher aussi HAUTMISS & 
LONGMISS pour les 4 missiles. Des 
dimensions trop importantes ralenti- 
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ront considérablement le jeu lors des 
tirs. 

• NBMISS : permet au programme 
de connaître le nombre de missiles 
en cours de traitement. 

•TABLEMIN : comme TABLEMIS 
mais pour les mines. 

• HAUTMINE & LONGMINE : 
dimensions des mines. Ces dernières 
étant toutes identiques et n'ayant 
pas à être déplacées, elles n'ont pas 
besoin de blocs gestion spécifiques. 

• SPAFFICH : permet à QUELSPT 
de savoir de quel sprite il s'agit. (De 
1 à i 20 : envahisseur , : sprite joys- 
tick, 255 : missile). Suggestion : 
ajouter en entrée de QUELSPT une 
comparaison sur 1 qui dérivera sur 
une routine de collision identique 
aux autres sauf qu'elle décrémen- 
tera un compteur N avant de consi- 
dérer le sprite comme détruit et il 
faudra toucher l'envahisseur Num. 1 
N fois pour s'en débarrasser. Sur le 
même principe, on peut avoir des 
sprites indestructibles, des réactions 
particulières aux collisions... Cette 
variable est la clé de voûte de 
QUELSPT, ne la négligez pas dans 
vos essais I 
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• POSCOL: garde en mémoire 
l'adresse écran où a lieu la collision . 
Utilisé parQUELSPT. 

• SPTAUTO : le début de la table de 
gestion des envahisseurs. 

• HLSPTAUTO : dans le cas où cer- 
tains sprites sont de taille différente 
(missiles), il est utile de conserver les 
dimensions courantes dans un 
endroit rapidement accessible. Si 
vous modifiez le programme pour 
utiliser une table à dimensions varia- 
bles, c'est encore plus utile. 

•ADSPTJOY : pour récupérer rapi- 
dement l'adresse du sprite joystick 
DANS LA TABLE DE SPRITES. 

• SPTADRES : début d'une zone de 
10 octets où est recopié par LDIR 
[TABLE PROG) le bloc de gestion du 
sprite en cours de traitement. Evite 
de jongler avec des "LD registre , 
(IX + NN)" lorsque l'on a besoin 
d'un paramètre précis. 



• CONTROLE : utile seulement aux 
utilisateurs d'assembleurs. Après le 
premier assemblage, faîtes : "? 
PEEK(38459) + 256*PEEK{38450)" 
si le résultat est différent de 1 2345, il 
y a immanquablement des fautes de 
frappe (code objet trop long ou trop 
court) . 



DIVERS 

Suppressions et résurrections = 
incrémentations et décrémentations 
de compteurs. Les mêmes opérations 
se répétant suite aux boucles basées 
sur VMIS-VAUTO-VJOY, il pourrait 
bien se produire une décrémentation 
de trop. Dans ce cas le compteur 
passerait de à 255. D'où les tests 
d'entrée sur à l'entrée de chaque 
routine importante. 
La pose des mines et le tir des missi- 
les nécessitent un décalage d'adres- 
se écran par rapport au sprite qui les 
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génère. Sinon le test de collision 
serait immédiatement positif. Ce 
décalage impose un test de validité 
séparé sur les limites écran. La fré- 
quence de pose des mines est fixe 
(255). 

Pour le reste,, les commentaires du 
listing devraient suffire. Le principe 
des boucles principales est résumé 
en 5 croquis. Seul l'essentiel y figure. 

FAITES-VOUS LES DENTS 

Modifications possibles : créez vos 
propres tables. Du moment qu'elles 
sont à intervalles fixes et en mode 0, 
le programme peut théoriquement 
digérer n'importe quoi. (Sauf si 
table > 2200 octets, auquel cas, il 
faut la loger ailleurs et revoir les 
adressages directs du programme). 
Pour utiliser des tables en mode 1, 
il faut modifier les tests pixels de la 
collision, missiles - mines. Tant qu'à 
faire, changez aussi les données 
pixels de ceux-ci. (Voir variables). 
Changez quelque peu la taille des 
missiles ou des mines. (C'est assez 
simple). 

UtNisez l'option 5 de SURGENE 
pour créer une table, où la superpo- 



sition de plusieurs dessins donne l'il- 
lusion d'un mouvement. Ceci fait, 
exploitez la variable ETATSPT avec 
une routine du genre EXPLOSE. Elle 
devra être appelée à chaque tour de 
MOVEAUTO et modifiez le contenu 
de ADSPTAF. Vos envahisseurs bat- 
tront ainsi des ailes. (Pas facile du 
tout). 

Restructurez le programme pour 
qu'il accepte des tables à interval- 
les variables. (Pas trop dur maïs 
beaucoup de travail). 
Modifiez le nombre maximum des 
missiles (enfantin). 
Modifiez la section NEWINVAD 
(raccourcir) de manière à provoquer 
leur réapparition au point où ils ont 
été abattus (évident). 
Créez des envahisseurs de classe 
particulière du genre indestructible, 
pondeur (se multiplient lorsqu'ils sont 
touchés), croiseur (ne changent pas 
de direction lorsqu'ils rencontrent un 
obstacle, autre que la bordure 
écran), inoffensif (ne peuvent vous 
détruire), etc. (difficile et surtout très 
long). 

Ce programme pèse moins de 5K 
tout mouillé. Développez-le jusqu'à 
ce qu'il remplisse toute la mémoire, 



puis ceci fait, utilisez la technique du 
splifting pour qu'il remplisse toute la 
disquette. (Au fou I). 

LE PROGRAMME 
BLOODY.BAS MM^^MKi 

Il exploite une bonne partie des pos- 
sibilités du binaire. Vous avez 3 
vaisseaux au départ. Les paramè- 
tres vitesses relatives, mode de tir, 
nombre d'envahisseurs sont initiali- 
sés de manière aléatoire. Certaines 
combinaisons seront injouables. 
Vous pourrez les refuser mais cela 
vous coûtera des points. A vous de 
découvrir les plus favorables. Atten- 
tion, si la vitesse de votre vaisseau 
est supérieure ou égale à celle des 
missiles, tirer en vous déplaçant, ris- 
que d'entraîner votre destruction. 
Un point à chaque fois qu'une mine 
est touchée. 

1 points pour un envahisseur 
abattu. 

Tous les points * 10 si tous les enva- 
hisseurs sont abattus. 
Un vaisseau de rab pour chaque 
tranche de 1000 points. Un seul 
tableau complété peut rapporter de 
2 à 5 vaisseaux* 



L I S T I 

! ' DATAS POUR CREATION TABLE TF1CPCH0 . 
WVADERS 



N G 

ITILISEE F* BLOODï 



10 fl=*55B9: F=&586D: L=1&0: WHILE tk=F:F0fi A=A TO Atl5;READ C*!k= 
WL("!i"+C»):S=S+k+65536*<S+lfr32767i:IF AOF THEN POKE A.K 
20 NEXT.-REAB B*:T=VAn"!i ,, tD$):IF TOS THEN PRINT CNR»<7) : "Erra 
ur li5ne":L:ENB ELSE L=L+5:iCNB:SAvE"t;ticPcmo.t5t ll ,b, 21897,740 
30 

100 BATA 00, 12, 0A, 04, 51 , 00, 00, A2, 00, A2, 51 , 00, 00, 51 , A2, 00. 02F9 
105 DATA 00,F3,F3,0Û,5i,DB,E7,A2,00,F3.F3, 00,51. 51, A2,A2,0B60 
110 DATA A2.00, 00,51, 00,00, 00,00,00,00,00, 00, 0B,AA,AA, 08, 0DB7 
1 15 BÂTA 08. 44, 00, 08, 04, 44, 04, 00, 00, 4C, 08, 00, 00, 44, 00, 00. 0EEF 
120 DATA 00,4C, 08, 00, 04,44,04,00, 04, 44, 04, 00,06, 00,00,08, 0FEB 
125 BATA 08, 00,00,08, 00, AA,AA,00,00,44, 00,00, 00,4C, 08, 00, 11E7 
130 DATA 04,44, 04,00,08, 44, 00, 08,00, 40,08,00, 04, 4C, 0C, 00, 1337 
135 BATA OC, 44, 04,08. 08. 00,00, 08,08,00,00, 08,00, 51, 00, 00, 1404 
140 BATA 00,51,00,00,00,51,00,00,00,51,00,00,00,51.00,00, 1548 
145 DATA O0,DB,8A,O0,45,DB,CF,O0,CF,DB,CF,BA,O0,51,O0,OO, 1BF0 
150 DATA 00, 8A.8A, 00, 00,51, 00,00, 00,51, 00, 00,00,51, 00,00, 1BF7 
155 BATA 00.51, 00. Û0,BA,51,00,8A,BA,DB,8A,8A,CF,DB.CF,8A,2529 
160 DATA CF,DB,CF,8A,45,51,45,00,8A,5i,00,BA,00,51,00,00,2ABD 
165 DATA 00,51,00,00,00,51,00,00,A2,51,00,A2,51,51,51,00,2BE7 
170 DATA OO.B3,A2,00,33,33,33.22,00,B3,A2,00,51.51,51,00,323F 
175 DATA A2, 51, 00, A2. 00, 44, M), 00, 00, 44, 00, 00,00, 44,00,00, 34A0 
180 DATA 20, 44,00,20,20, 44,00,20,20,OC, 08, 20,20, OC.OB, 20.3650 
185 DATA 44, CC, CC, 00, 44, CC, CC, 00, 0C, 0C, OC, 08, 00, 50, 00, 00, 3A84 
190 DATA 00,3C,28,0O,5O,F0,F0,0O,3C,3C,3C,28,3C,3L,3C,28,3EB0 



195 
200 
205 
210 

215 
220 

230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
295 
1300 
305 
310 
315 
320 
325 
330 



DATA 50. F0 
DATA A0,00. 
DATA 14, 6D, 
DATA 28,00, 
DATA 00. 4C 
DATA 44, SB, 
DATA F0,00, 
DATA 22, FF 
DATA 22,55, 
DATA 51,00, 
DATA E3,D3, 
DATA 00, A2, 
DATA CC,8C 
DATA 00,88 
DATA 45,00 
DATA 33,33, 
DATA SA, 00, 
DATA 00,40, 
DATA C0,C5, 
DATA 00,00 
DATA 45,00, 
DATA 00,00, 
DATA 00,55, 
DATA 00.8A, 
DATA 11,54, 
DATA 20,50 
DATA 00,00, 
DATA 12,17 



F0.00, 
00. AO 
DB.A2 
00,00 
8C.00, 
4E,8i 
00, F0. 
FF, 11, 
AA, 11, 
,00,A2. 
E3,D 
51,00, 
,4C,CC, 
,44,00, 
00, SA, 
33,33 
00,45 
00, Où 
CO.B0, 
00, 00, 
i5,00 
00,00, 
00,00, 
55,00 
00, AS 
00, A0, 
!, 00, 
18, FF, 



00, F( 

3C.3C, 
CF.CF 
3CJC 

oo.ee 
oo.ee, 

11,00, 



51,00, 

A2.51, 

3,88, 

3,CC, 

J,B8 

00, 8A 

00,33 



C0,C0 
00, AA 
00,45, 
00,00, 
00,AA, 
45,00 
AS, 00 
54,00 
1A,17 
00,00, 



AO.00,00 
iC.2a.28 
CF. CF. 14 
3C,2S,00 
CC, 00. 44 
CC.00,00 
00,22,22 
3C,BB,77, 
00,11,11. 
,00,A2,A: 
A2,51,51, 
44,00,44, 
CC, 44,88 
,44,00,44 
45,00,11 
33,00,00, 
00.00,00, 
o0.00,3( 
Cû,S0,80, 
00,00,00 
AA,00,00 
>0,00,55 
>2,00,8A 
,00,10,00 
,10, 00, 00, 
,00,00,00, 
,02,04,05, 
00,00,00, 



,3C,28,00,50 
00,00,00,14 
,6D,CF,8A,1 
,00.00,00.00 
SB, 4E, 88, 0C 
4C,8C,00,F0 
00.00,11.22 
FF,FF,BB,2 
00,00,22,00. 
il,A2.51,E3, 
00,00, A2,5i, 
30,00.88.88. 
,44,88,44,44, 
88, 44,88. SA, 
33,33,22.33, 
45,SA,00,45, 
40,00,00,00, 
l3,3i. : .90.30, 
40,00,80,00, 
00,8A,00,00, 
SA, 00, 00. 00, 
10,13(3,20.20, 
02.01, AA, 10, 
00,20,00,00, 
11,00,50,00, 
20,11,00,10, 
,0B,0E,08,09, 
00,00,0 



,00.50.00.4394 
00,CF,00,46bfc 
,00,CF,00.4EB2 
,04,08.00.4FC2 
BB,4E,0C.54CC 
04,08.F0.5ACF 
,55,AA,11,5E47 
,FF, FF. 11,6783 
,A2,51,00,6-AOE 
,D3,E3,B3,7146 
,00,00,A2.787E 
, CC.CC, 44, 7B6D 
00,00,88, 84A5 
0ù,00,45,88A4 
CC.CC, 33, BCB9 
8A.45,8A,907B 
40, 00, 00, 9207 
C5.5Ci.Su, 5B11 
00,00,00,9ED6 
55,00,00.A05F 
0ù,00,00,A272 
00,45,00,A37C 
,00,0û,A5C4 
00,A8,0O,A7C0 
22, 50, 00, «B8 
00,00,54,AC51 
01,06,0F,AD75 
00,00,AEB5» 
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// faut récupérer le maximum 
de gouttes de pétrole afin 
d'éviter que le sol n'en soit 
imbibé et que le seuil de 
danger ne soit atteint. 




P 



our cela le chien à deux pattes 
appelé FUT-FUT a le pouvoir 
d'absorber une quantité raison- 
nable de pétrole : s'il la dépasse, il 
devient écarlate et s'il continue à avaler 
des gouttes malgré cet avertissement, il 
meurt. 

Pour ne pas en arriver là, il faut qu'il 
recrache tout dans le tuyau qui se trouve 
à droite de l'écran. 
Tous les 100 points un bonus est accor- 
dé : le niveau de danger est remis à 
zéro. 

Mais attention, chaque fois qu'une 
goutte touche le sol, le niveau de dan- 
ger augmente. Lorsqu'il atteint le maxi- 
mum, FUT-FUT meurt. 
Le contrôle du personnage se fait par 
joystick uniquement : 



P A N I C 



Fabrice ROMAND 




• droite , ~. , 

• gauche ) Déplacement 

• rire : envoyer les gouttes dans le 
tuyau. 



Pour attraper une goutte, il suffit de se 
placer en dessous. 

• Le jeu est constitué de 2 fichiers : 

- OILPANIC.BAS : s'occupe de la par- 
tie musicale du jeu ainsi que de sa liai- 
son avec le jeu lui-même. Ce fichier est 
en BASIC et occupe environ 4 K. 

- OILPANIC.BIN : est le programme 
principal. Il est écrit en langage 
machine : 

- adresse de chargement : 29952 ; 

- longueur : 6880 octets. 

Le troisième listing OIL.BAS est le géné- 
rateur de OILPANIC.BIN. Après un 
RUN, vous obtiendrez donc le second 
programme. OIL.BAS vous sera alors 
inutile. 

NOTA: 

- Les DATA dans le fichier BASIC doi- 
vent être tapés avec tous les espaces. 

- Le programme exécutant la musique est 
une partie de STRADAMUSE publié 
dans le n" 20 de CPC» 



IL PANIC-BAS 



10 ■ 

20 'OILPANIC MUSIC 

30 ' 

40 EIW 1,2,7, 1.14,-1.15 

50 ENV 2,1,0,2,3,5,1,15,-1,10 

40 ENV 3,1,0,1,3,5,1,15,-1,20 

70 ENT -1,1,-1,8,1,1,8 

B0 ENT -2,1, 0,1, 1,-1, o,l,l, à 

90 ENT -3,1,0,2,1,-1,6,1,1,6 

100 0PEN0UT "bid":MEB0RY 29000 :CL0SEDUT 

110 DEFINT a-::LOAD"!oilpanic.bin", 29952 

120 DIB no$(3,300),ca(3,300) 

130 DIB no(3),dt(3),d(3) 

140 can=l:syn=0:fin=0 

150 no*(l,0)="x"ino*(2,0)=V , :no*(3,0!="x" 

160 G0SUB 220:CALL 30304 

170 : 

180 CALL 30317 

190 GOSUB 530:F0R t=0 TO 5000: k$=INKEYt: IF MO" THEN 

CflLL 30323: CflLL &BB03: CflLL &BB06:G0T0 180 

200 NEXT t:G0TD 190 

210 : 

220 syn=0:ERASE ca,ncr*:DIM no$(3,3Û0);e5p=FRE<"») 

230 no(l)=12:no(2)=23:no(3)=3 

240 RESTORE 770:F0R sa=l TO 3:F0R ve=0 TO no(sa):READ n 

o*(sa,ve):NEXT ve,sa 



>LA 
>LB 
>LC 
>PU 
>UG 
>VA 
>N« 
>UU 

>ux 

>KC 
>NB 
>UF 
>RR 
>RB 

>jq 

>RW 
>ZB 

>KD 
>BC 

>NN 

>YG 
>TB 
>WC 

>AF 



250 DIB ca(3,300) 

260 IF syn=0 THEN fin=l:G0SUB 2B0:RETURN EL3E RETURN 

270 B0SUB 530: GOTO 260 

280 d(l)=0:d(2)=0:d(3)=0:dt(l)=0:dt(2)=0:dt(3)=0 

290 not<l,0>=V:nD*(2,0>=V:no«13,0)=V 

300 FOR ii=l T0 3 

310 d<ii>=vVtUMD$<no*<ii,l>,lB.2)> 
320 NEXT ii 

330 ca(l,l)=49sca(2,l)=42ica(3, 11=28 
340 IF fin=l AND syn=l THEN RETURN 
350 IF syn=l THEN 530 
360 i=l:j=l:k=i 
370 FOR j j=l T0 3 
380 FOR ii=l T0 noijj)+l 
390 d=vAL(MID$(no*(jj,ii>,lB,2>) 
400 dt(jj)=dt(j.j)+d 
410 NEXT ii.jj 

420 tpn=BflX(dt(l),dt(2),dt<3)) 
430 FOR tp=l T0 tpœ-1 

440 IF d(l)=tp AND d(2)=tp AND d(3)=tp THEN i=i+l:j=j+l 
:k=k+l:r.a(l,i)=49:r.a(2,j)=42:ca(3,k)=28:G0SUB 680:BOSUB 
710:GOSUB 740:G0T0 510 

450 IF dt(l)=tp AND d(3)=tp THEN i=i+l:k=k+l:r.a(l,i)=33 
:co(3,k)=12:G05UB 680:G0SUB 740:G0T0 510 
460 IF d(l)=tp AND d(2)=tp THEN j=j+l:i=i+l:r.a(l,i>=17: 
ca(2,j)=10:G0SUB 68O:G0SUB 710:G0T0 510 
470 IF d(2)=t P AND d(3)=tp THEN j=j+l:k=k+l:ca(2, j)=34: 
r.a(3,k)=20:GOSUB 710;GOSUB 740:G0T0 510 



/EF 
>YV 
>«K 
>ST 
>JW 
>Eft 
>C6 
>XH 
>BE 
>BP 
>NH 
>BH 
>EK 
>RM 
>flH 

m 

>XJ 
>YR 
>PY 
>WC 



m 
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4B0 IF d(l)=tp THEN i=i+l:catl, i)=l:GOBUB 680:G0TO 510 

490 IF d(2)=tp THEN j=j+l:ca(2, j)=2:BOSUB 710:G0T0 510 

500 IF d(3)=tp THEN k=k+l:ca(3,k)=4:B0SUB 740 

510 NEXT tp:syn=l 

520 IF fin=l THEN RETURN 

530 ii=l: j j=l : kk=l 

540 IF SQ(1)=12B DR no*fl,ii-l)="" THEN 5B0 

550 dur=VftL(MID*(no*(l, i i) , 18,2)1 : IF dur=0 THEN dur=l:s 

o=0:G0T0 570 

560 50="AL(hTD*(no$(l,ii),14,4)! 

570 SOUND ca(l,ii),so,duHH2,0,-HKso<>0),-l*(so<>0):ii 

•ii+i 

580 IF SQ(2)=12B OR no$(2, j j-1 )="" THEN 620 

590 dur=VAL(MIDt(no$(2,jj),18,2)):IF dur=0 THEN dur=l:s 

o=0:BOTO 610 

600 50=VAL(MD$fno$(2,j,j), 14,41) 

610 SOUND ca(2,ij),so,dur*12,0,-2t(50<>0),-2*(5o00):jj 

=j j+l 

620 IF SQ(4)=12B OR no»(3,kk-l)="" THEN 660 

630 dur=VAL!f1ID$(no«(3,kk),ia,2ihIF dur=0 THEN *r«tïS 

o=0:GDTO 650 

640 50=VAL(MD$(no*(3,kk), 14,41) 

650 SOUND ca(3,kk),5o*2,durtl2,0,-3*(5D<>0),-3*(5O<>0): 

kk=kk+l 

660 IF ii)no(l) AND jj>no(2) AND kk>no(3) THEN RETURN 

670 BOTO 540 



m 
HT 

>MY 
>HZ 
>TX 
>NK 
>GU 
>PM 

>ZH 



>GX 

>PP 



>ZF 

>GF 



>UJ 
>ZJ 




1330 142 4,000 : 
4 3732 119 4,0 



680 d=VAL(HID*(no*(l,i), 18,2)) 
690 d(l)=d(l)+d-(d/2)*(p=l) 
700 RETURN 

710 d=vflL(rJlW(no*(2,j),lB,2) 
720 d(2)=d(2)+d-(d/2)«(P=l) 
730 RETURN 

740 d=vAL(MD*(no*(3,k),18,2)) 
750 d(3)=d(3)+d-(d/2)*(P=l) 
760 RETURN 

770 DATA x,000 4 129 159 4,000 4 
4 2531 127 4, 000 

00 4 4933 106 4,000 4 6126 213 4,000 4 7327 19 
4,000 4 852B 179 4,000 4 9729 159 4,000 4 109 

30 142 4,000 4 12131 127 4 

780 DATA 000 16 13332 11916, x, 000 2 136 80 2,000 
2 735 B9 2, 000 2 1334 95 2,0 

00 2 1933 106 2,000 2 2532 119 2,000 2 3131 12 
7 2,000 2 3736 80 2,000 2 4335 B9 2,000 2 49 
34 95 2,000 2 5533 106 2 

790 DATA 000 2 6132 119 2,000 2 6731 127 2,000 2 

7332 119 2,000 2 7933 106 2,000 2 8534 95 2,0 

00 2 9126 213 2,000 2 9727 190 2,000 2 10328 17 

9 2,000 2 10929 159 2,000 2 11530 142 2,000 2 121 

31 127 2,000 2 12734 95 2 

800 DATA 000 4 13332 119 4,x,000 16 130 14216,000 
16 4930 14216, 001 16 9730 14224. 
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4 REVUES POUR LES PASSIONNES 

CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez chez vous 
votre revue. Vous bénéficierez de réductions sur certains produits et vous recevrez gratuitement un 
numéro HORS SERIE tous les deux mois. 

AMSTAR : en avant-première, toutes les nouveautés sur AMSTRAD - des programmes, des ar- 
ticles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

PCompatibles Magazine : la référence en matière d'initiation et de perfectionnement sur les "com- 
patibles PC. 

ARCADES : à peine sortis, des dizaines de jeux passés au peigne fin. Des interviews d'auteurs 
des rencontres avec les éditeurs : le mensuel des fans de jeux sur toutes machines. 



□ CPC AMSTRAD 
□ CPC AMSTRAD 
Q AMSTAR 

□ PCompatibles Magazine 
Q Arcades 



1 1 numéros^ 
6 numéros. 
1 1 numéros . 
11 numéros. 
1 1 numéros- 



NOM- 



220 F 
„120 F 
_140F 
.210 F 
-200 F 

- Prénom ~ 



Attention, tous nos abonnés 
reçoivent avant parution des 

souscriptions sur les 
nouveaux livres ! 



Adresse- 



Code postal _ 
Date 



- Ville 

- Signature 



Je m'abonne à : 

Merci d'écrire en MAJUSCULES. Ct-jolnt un chèque libella à Tordre de ; 
Editions SQHACOM - Service abonnement - BP 1 1 - 351 70 B RUZ - Retournez lefe) bulletin^) ou ui 
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10 A=29952:F=36B32:L=100:WHILE A<=F:F0R A=A T0 fi+15:READ C*:K 
=VflL !"&"+«) :S=B+K+65536*(S+K>327é7) : IF A<=F THEN FOKE A,K 
20 NEXT:READ D*:T=VAL("!<"+D$): IF TOS THEN PRINT CHR*(7);"Err 
eur ligne"iLiEND ELSE L=L+5:WEND 
30 BAVE " OILPANIC" , B, 29952 , 6880 

100 DATA 00,00, 00,00, El, C2,F1,C6,00,00, 00,00,00, E7,C2,F7,05FA 
105 DATA C6, 00,00,00, 00, 00, ED,C2,FD,C6,00,00,00,00,00,F3,OB25 
110 DATA C2,03,C7, 00, 00,00,00, 00,F9,C2, 09, C7,00,00,00,00,0F3C 
115 DATA 00, FF, C2,0F,C7, 00, 00,00,00, 00,05,C3,15,C7,00,00,1377 
120 DATA 00,00,00,0B,C3, 1B,C7,00,B0,DE, 00,00, 00,86, CF,00,180A 
125 DATA 00,00,30,30,30,32,30,30,05,OA,OA,OA,1A,1A,OD,OD,199D 
130 DATA 0C,0C, 19,19, 00,00,03,03, 11, 11, 16, 16,10,10,06, 06.1A67 
135 DATA 0B,0B,14,14,01,01,02,02,12,12,47,41,4D,45,20,4F,1C58 
140 DATA 56,45,52, 00, 00,50,72, 6F,67,72,61,6D,6D,65,2C,00,211B 
145 DATA 4D, 75, 73, 69,71, 75, 65,20,65, 74, 00,47,72, 61, 70,6B,26EF 
150 DATA 69,73,6D,65,20,3A,00,46,2E,52,4F,4D,41,4E,44,00,2B2C 
155 DATA 28,43,29,2E, 31, 39,38,38, 00,42,4F, 4E,55,53,00,20,2E6F 
160 DATA 20, 20,20,20, 00,C8,00,00, 00, 00,00,14, 36,10,00,00,3011 
165 DATA 64,00,09, 64,00,00,00, 00,00,14, 36, 10,00, 00,64, 00.31A0 
170 DATA 0F,14,00, 00,00,00,00, 0F,36,10, 00, 00,96,08,09,00,32C1 
175 DATA 00,05,00,00,00, 1E, 2F, 00, 10, 00, Oft, 00, 02, Ofl, 00, F6, 342F 
180 DATA 02, BD, 00,00,38,10, 10,10,E8, 03,09,00, 00,00,00,E1,372B 
185 DATA C2,F1,C6,00, 00,00,00,00, E7,C2,F7,C6,00,00,00,00,3D0A 
190 DATA 00,ED,C2,FD,C6,00,00,00,00,00,F3,C2,03,C7,00,00,42F6 
195 DATA 00,00,00, F9,C2,09,C7,00, 00,00,00,00, FF,C2,0F,C7,4B1D 
200 DATA 00,00,00,00, 00,05,C3,15,C7, 00,00, O0,00,00,0B,C3,4A8F 
205 DATA 1B,C7,00,BO,DE,00,00,00,B6,CF, 00, 00,00,30,30,30, 4EE4 
210 DATA AF,CD,OE,BC, 06,01, 48,CD,38,BC,C3,5E,77,CD,5E, 77,5674 
215 DATA C3,B9,76,CD,5E,77,CD,22,77,CD,19,BD,21,86,7A,11,5E43 
220 DATA D6,7A,06,81,48,CD,D7,BC,CD,22,7B,21,86,7A,CD,DD,66F4 
225 DATA BC,11,B4,7D,CD,0E, 77,11, 1D,7E,CD,0E, 77,11, 86, 7E,6D57 
230 DATA CD,0E,77,11,EF,7E,CD,0E,77,3E,01,CD,9F,BB,16,07,73FC 
235 DATA 1E,0D,21,7A,75,CD,FB,76,C9,16,06,1E,0C,21, 85, 75,799F 
240 DATA CD,FB,76,16, 06, 1E,0D,21,90,75,CD,FB,76, 16,06, 1E, 7FC2 
245 DATA 0E,21,9B,75,CD,FB,76,16,07,1E, 10,21, A7,75,CD,FB,868F 
250 DATA 76,16,07,1E,12,21,B0,75,1B,11,AF,46,48,F5,E5,CD,8CA5 
255 DATA 34,BD,E1,F1,23,3C,FE,0F,CB,18,F0,EB,D5,CD,75.BB,9661 



260 DATA D1,EB,7E,FE,00,C8,E5,CD,5A,BB,E1,23,1B.F4,CD,19,A01E 
265 DATA BD,3E,0F,06,07,2A,48,75,CD,E2,77,2I,FF,FF,CD, 16,A744 
270 DATA 78,C9, 21, OB, 76, 11, 00,75,01, 55, 00, ED, BO, 21 , FB, 03. ACBC 
275 DATA 22,32,78, 3E,7E,32,B3,78,AF, 32,84,75, 21, 86,7A,06,B2A2 
280 DATA 1F,AF,77,23,10,FC,C9,21,5A,75,06,10,AF,C5,F5,46,B994 
285 DATA 23,4E,23,E5,CD,32,BC,E1,F1,3C,C1,10,F0,C9,CD,47,C274 fc 
290 DATA 77,CD,BE,77,2A,02,9E,11,00,9D,01,00,01,ED,B0,DD,CBE1*~ 
295 DATA 2A,00,9E,FD,21,00,95,21,00,9D,01,00,9D,CD,8E,77,CE8A 
300 DATA DD,2A,04,9E,FD,21,00,C0,21, 00,95,01, 00,00,3E,B0,D386 
305 DATA 5F,A6,20,05,DD,56,00,DD,23,7B,FD,72,00,CB,0F|FE,DAA5 
.310 DATA 80,20,01, 23,FD,23,E5,FD,E5,E1,A7,ED,42,E1,C8,C3,E473 
'315 DATA 90,77,11,00,C0,2A,04,9E,01,EQ,3F,ED,B0,C9,2A,58,EB1F 
320 DATA 7F,CD,D7,77,22,00,9E,2A,5A,7F,CD,D7,77,22,02,9E,F259 
325 DATA 21,5C,7F,22,04,9E,C9,01,00,50,A7,ED,42,01,5B,7F,F7E1 
330 DATA 09,C9,32,EA,77,7B,32,EE,77,06,OC,C5,E5,01,05,00,FE17 
335 DATA EB,ED,BO,EB,E1,3E,08, 84, 67, 30,05,01, AF,3F,ED,42,05EF 
340 DATA Cl,10,E8,C9,3E,OB,B4,67,30,DF,oi,AF,3F,ED,42,C9,OD98 
345 DATA 7C,92,C0,7D,93,C9,2B,7D,FE,00,20,FA,7C,FE,00,C8, 1641 
350 DATA 1B,F4,AF,32,51,75,47,CB,27,CB,27,CB,27,B0,32,38,1CFB 
355 DATA 78,21,F8,03,CD,16,78,21,00,75,7E,FE,00,2B,6B,23,22B2 
360 DATA 7E,FE,00,CA,F0,78,23,5E,23,E5,56,2A,48,75,D5,7C,2A77 
365 DATA 92,20,02,7D,93,28,02,30,OD,01,06,00,09,7C,92,20,2DEO 
370 DATA 02, 70, 93,02,23, 79,D1, El, 23,23, 23, D5,5E,23, 56, El, 3508 
375 DATA 7C,92,20,02,7D,93,CA,9D,79,2A,3B, 78,23, 23, 5E, 23, 3AC9 
3B0 DATA 56,EB,3E,0B, 84, 67,30,05,01, AF,3F,ED,42,EB,72,2B,4116 
385 DATA 73,3E,0B,06, 03,21, 6C,7D,EB,F3,CD,E2,77,FB,3A,51,4B6C 
390 DATA 75,FE,07,CA,22,78,3C,C3,23,78,ED,5F,FE,3C,3B,EE,5090 
395 DATA ED,5F,FE,7E,38,E8,E5,3A,4B,75,3C,32,4B,75,FE,10,5893 
400 DATA CC,59,79,3A,4C,75,3C,32,4C,75,FE,03,CC,6B,79,E1,5FED 
405 DATA 7E,2F,77,23,AF,77,23,E5,23,23,5E,23,56,E1,73,23,65F6 
410 DATA 72,21, 3C,7D,EB,3E,08,06,03,F3,CD,E2, 77, FB,1B,AE,6D56 
415 DATA Ol,07,0O,O9,7E,FE,0A,28,04,3C,77,18,Al,AF,77,2B,71D6 
420 DATA 2B,2B,2B,2B,56,2B,E5,CD,19,BD,3E,08,06,03,5E,21,7659 
425 DATA 54,7D,EB,F3,CD,E2,77,CD,19,BD,FB,E1,2B,7E,2F,77,7FFC 
430 DATA C3,9E,78,D1,E1,2B,5E,23,56,21 ] 9C,7D,EB,3E,08,06,B6FA 
435 DATA 03,F3,CD,E2,77,FB,21,D3,75,CD,EA,76,2A,38,78,AF,9030 
440 DATA 77,23,77,3A,4A,75,3C,32,4A,75,47,3A,58,75,BB,38,95A5 
445 DATA 3B,3A,59,75,B8,D8,C3,9E,7B,AF,32,4B,75,3A,B3,78,9D54 
450 DATA FE,3C,20,02,3E,7F,3D,32,B3,78,C9,AF,32,4C,75,2A,A39C 
455 DATA 32,78, 11, 01,00, 7C, 92, 20,02, 7D, 93,20, 03,21, 07,02,A6E5 
460 DATA 01,07,00,ED,42,22,32,78,C9,C5,3E,OF,06,06,4B,CD,ABE4 
465 DATA 32,BC,3E,0A,06,14,48,CD,32,BC,C1,18,B4,2A,4D,75,B1B0 
470 DATA CD,29,BC,22,4D,75,3E,F0,77,11,66,C4,7C,92,20,02,B856 
475 DATA 7D,93,C8,21,C5,75,CD,EA,76,2A,3B,78,E5,23,23,5E,C019 
4B0 DATA 23,56,21, 9C,7D,3E,08,06, 03, EB,F3,CD,E2,77,FB,E1,C7FB 
485 DATA AF,77,23,77,C3,9E,78,3A,4A,75,FE,00,28,45,3D,32,CE67 
490 DATA 4A, 75,21, 54,75,3E,39,BE,20,4E,3E,30,77,3E,39,2B,D33A 
495 DATA BE,20,45,3E,30,77,3E,39,2B,BE,20,3C,3E,30,77,21,D804 
500 DATA 0C,01,ll,10,O0,CD,CO,BB,3A,52,75,CD,FC,BB,3A,53,DE8C 
505 DATA 75,CD,FC,BB,3A,54,75,CD,FC,BB,21,E1,75,CD,EA,76,E8B0 
510 DATA C3,05,7B,CB,BE,3E,0F,06,12,4B,CD,32,BC,3E,0A,06,EE32 
515 DATA 06,48,CD,32,BC,C3,05,7B,34, 11, 52,75, 7C,92,20,02,F3BA 
520 DATA 7D,93,20,BB,21,66,C4,U,86,CF,3E,08,84,67,30,05,F9B: 
525 DATA 01,AF,3F,ED,42,AF,77,7C,92,20,02,7D,93,20,EB,22,006D 
530 DATA 40,75,21, FD,75,CD,EA,76,3E,0D, CD, 96,BB,16,02,1E,07BE 
535 DATA 05,21, B9,75,00, 00,00,21, 96, 7A,11,A6,7A,06,81,4B,0C13 
540 DATA 00, 00,00,C3,FF, 79,00,00,00,00,00,00, 00, 00,00,00,OE4E 
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5 DATA 00, 


DATA 00, 


5 DATA 28, 


DATA 21, 


5 DATA El, 


DATA 75, 


5 DATA 78, 


DATA 41, 


5 DATA 92, 


DATA 53, 


5 DATA 18, 


DATA 18, 


5 DATA 6E, 


DATA 7D, 


5 DATA 21, 


DATA 4F, 


5 DATA 5B, 


DATA 00, 


5 DATA 50, 


DATA EA, 


5 DATA 00, 


DATA FA, 


5 DATA FF, 


DATA 00, 


5 DATA 00, 


DATA F5, 


5 DATA AF, 


DATA 00, 


5 DATA 55, 


DATA 00, 


5 DATA 00, 


DATA 55, 


5 DATA FF, 


DATA A0, 


5 DATA 00, 


DATA FF, 


5 DATA AO, 


DATA 00, 


5 DATA F5, 


DATA FF, 


5 DATA AO, 


DATA 00, 


5 DATA 00, 


DATA FO, 


5 DATA 00, 


DATA 00, 


5 DATA FO, 


DATA AO, 


5 DATA 05, 


DATA 00, 


5 DATA 00, 


DATA 00, 


5 DATA 00, 


DATA FF, 


5 DATA FF, 


DATA 00, 


5 DATA 00, 


CPCn" 34 



00,00,00,00,00,00,00, 
00,00,00,00,00,F3,F5, 
06,3C,32,84,75,1B,1B 
BF,75,CD,FB,76,AF,CD, 
D1,C1,F1,FB,C9,F3,F5, 
CB,7E,C2,D7,79,E5,CD 
E6,1C,B1,77,ED,5B,48 
CB,67,20,53,E1,D1,C1, 
20, 02, 7D, 93, El , 25, 05, 
48,75,3A,50,75,FE,05, 
02,CB,BE,21,EF,75,CD 
C3,E5,21,A0,DE,7C,92, 
28,01, 1B,CB,EE,1B,C7, 
93,E1,20,A0,3A,4A,75, 
4F,75,CB,6E,21,98,7B 
75,CB,4E,EB, 28,04,01, 
48,75,EB,C3,E2,77,00, 
00,A0, 50, 00,00,00,00, 
FF,AA,0O,0O,00,OO,FF, 
0A,00,00,55,FF,FF,AF, 
50,FF,FF,FF,FF,AA,00, 
F5,FA,FF, 00, 00,00,50, 
00,00,00,00,AO,ÛO,AO, 
00,00,00,00,00,00,00, 
00, 50,FF, 00, 00,00,00, 
FF,FA,00,00,'AO,55,FF, 
0A,00,50,FF,FF,FF,FF, 
00,FF,FF,FA,FF,00,00, 
FO,FF,AO,00, 00, 00,55, 
00,00,00,00,AO,50,00, 
00,00, A0,50, 00,00,00, 
FF,A0,00,00,00,00,F5, 
AA,00,00,05,5F,FF,FF, 
00,55,FF,FF,FF,FF,AO, 
FF, F5,FA,F5, 50,00,00. 
FF, AO, 00, 00,00, 00,50, 
00,00,00,00,00,00,00, 
00,00, FF, A0,00,00,00, 
FF,FA,00,A0,00,05,D5, 
AA,50,00,55,FF,FF,FF, 
00,00,FF,F5,FF,FF,00, 
50,FF,F0,AA, 00,00,00, 
50,50,00,00,00,00,00, 
00,00,00,00,00,00,00, 
00,00,00,00,F0,A0,50 
00,00,00,00,00,00,00, 
00,00,F0,00,00,F0,00, 
OO.FO, 00, 00,00,00,00 
1A,OA,00,1A,OA,00,1A, 
00,00,00,00,00,00,00, 
00,00,00,00,50,00,00, 
00,00,00,F5,FF,FA,00, 
55,FF,FF,FF,AA,AO,00. 
OF,FF,AA,00,00,55,FF, 
AA,00,00,55,FF,FF,FF, 
00,00, FF, F0,FF,00,00, 
F5,FF,FA,00,00,00,50, 



00,00,00, 
C5,D5,E5, 
AF, 32,84 
96,BB,21, 
C5,D5,E5, 
24,BB,E1, 
75,CB,5F, 
F1,FB,C9, 
CB,6E,20, 
20,12,CB, 
EA,76,3E 
20,02,7D, 
E5,21,D2, 
FE,00,2B, 
28,04,01, 
69,00,09, 
00,00,00, 
00,50, FF, 
FF,FA,00, 
0A,00,50, 
AO.FF.FF 
F5,FF,A0, 
00,00,00, 
00,00,00, 
00, 50, FF 
FA,EA,OA, 
AA,00,50, 
00,FF,FO, 
F5,FF, 
00,00,00, 
00,00, FF 
FF,FF,00 
AA,00,00, 
00,00,FF, 
50,FF,FA, 
00,50,00, 
00,00,00, 
00,55,FF, 
F5,F,AA, 
FF,AO,00, 
00,00,FF, 
00,FF,FA, 
A0,50,00, 
00,00,00, 
D8,F0,00 
00,00,00, 
50,D8,A0, 
OA,00,05, 
,05, 
00,00,00, 
00,A0,00, 
00,00,00, 
55,FA,FF, 
OF,FF,AA, 
AA,00,00, 
00,00,F5 
00,00,00, 



00,00, 00,00,00,OE4E 
3fi,84,75,FE,96,157C 
75,16',02,1E,05,1956 
96,7A,CD,DD,BC,234D 
CD,70,7B,21,4F,2F04 
47,7E,E6,E3,4F,3923 
20,0£,CB, 57,20, 4064 
E5,21,D2,DE,7C,4AA4 
01,13,CB,AE,ED,5149 
4E,20,04,CB,Œ,5763 
FF,3C,32,50,75,5EF8 
93,E1,28,05,CB,6670 
DE,7C,92,20,02,6DA0 
99,CB,FE,1B,95,757F 
D2,00,09,EB,21,7AE5 
3E,0F,06,07,ED,7F93 
00,00, AO,00,00,S452 
00,00,00,00,00,3491 
00,00, 55, FF,FA,BDD0 
FF,FF,FF,FF,AA,96C6 
FA,FF,00,00,00,A053 
O0,OO,OO,5O,FF,A86E 
00,50, A0,50,00,ABED 
00, 50,00,00, 00, AC3D 
AA, 00,00, 50, 00, AFD5 
,A0,55,FF,FF,B99B 
FF,FF,FF,FF,AA,C43D 
FA,FF,00,00,00,CC1C 
00,00,00,AO,AO,D289 
50,00,00,00,00,D3C9 
A0,00,00,00,00,D65B 
00,00,05,D5,F5,DD0E 
55,FF,FF,FF,FF,E614 
F5,FF,FF,50,0O,EFE7 
A0,00,00,00,00,F703 
00,00,00,A0,50,FB31 
00,AO,00,00,00,FC71 
AO, 00, 00, 00, 00, 0004 
50,00,05,5F,FF,08BD 
55,FF,FF,FF,FF,13F8 
F5,F0,FF,00,00,1C6D 
AA.OO, 00, 00,00, 21F9 
00, 50,F0,A0, 00,2569 
00,00,00,00,00,2659 
F0,A0,00,50,00,2BE1 
00, 00,00,00, 00,2BE1 
50,D8,A0,50,D8,3369 
25,00, 05,25,0A,3561 
00,00,00,00,00,35D7 
00,00, 00,00,00,35D7 
00,00,F5,FF,FA,39B5 
FF,FF,F,00,00,3FA0 
F5,FA,00,00,55,48CE 
O0,O0,55,FF,0F,4FF4 
00,FA,FF,F5,00,58B7 
FF,FA,00,00,00,5E63 
A0,00,00, 00,00,6241 



830 DATA 
835 DATA 
840 DATA 
845 DATA 
850 DATA 
855 DATA 
860 DATA 
865 DATA 
B70 DATA 
875 DATA 
880 DATA 
885 DATA 
B90 DATA 
895 DATA 
900 DATA 
905 DATA 
910 DATA 
915 DATA 
920 DATA 
925 DATA 
930 DATA 
935 DATA 
940 DATA 
945 DATA 
950 DATA 
955 DATA 
960 DATA 
965 DATA 
970 DATA 
975 DATA 
980 DATA 
9B5 DATA 
990 DATA 
995 DATA 
1000 DATA 
1005 DATA 
1010 DATA 
1015 DATA 
1020 DATA 
1025 DATA 
1030 DATA 
1035 DATA 
1040 DATA 
1045 DATA 
1050 DATA 
1055 DATA 
1060 DATA 
1065 DATA 
1070 DATA 
1075 DATA 
1080 DATA 
1085 DATA 
1090 DATA 
1095 DATA 
1100 DATA 
1105 DATA 
1110 DATA 



00,00,00,00,00,00,00,FF,00,00,00,00,00,F5,FF,FA,662E 

00,00,00,50,FF,FF,FF,A0,00,00,50,FF,FF,FF,A0,00,6E08 

00,55,FF,FF,FF,AA,00,00,55,FF,FF,FF,AA,00,00,55,7655 

F5,0F,FA,AA,O0,0O,55,FF,0F,FF,FA,0O,00,0O,FF,FF,7E57 

FF,00,AO,00,00,FF,FO,FF,00,00,00,00,FA,FF,F5,00,B5D2 

00,00,00,55,FF,AA,00,00,00,00,AO,FF,50,00,00,00,89BF 

FO, 00, 00, 00,FO, 00,00,00, 00, 00, 00, 00,00,00,00, 00, BB9F 

FF,00,00,00,00,00,00,FF,00,00,00,00,00,55,FF,AA,8F9B ZjpL. 

00,00,00,55,FF,FF,FF,AA,00,00,55,FF,FF,FF,AA,00,9793 

00,55,FF,FF,FF,AA,0O,0O,55,FF,FF,FF,AA,0O,0O,OO,9F8B 

55,FF,AA,00,00,00,00,55,FA,FA,50,00,00,AO,55,OF,A526 

AA,00,AO, 50, AO,FO,OF,AO,00,AO, 00, 00,00,0F, AO,AO,AAEE 

00,00,00, FO, FF, 50,00, AO,00,FO,AO, 00, 00, F0,00,00,B04D 

00, 00, 00, 00,00,00,00, 00, 00, FF,00,00, 00, 00, 00,00,B14C 

FF,00,00,00,00,00,00,FF,00,00,00,00,55,FF,FF,FF,B69C 

AA,00,00,55,FF,FF,FF,AA,00,00,55,FF,FF,FF,AA,00,BF3E 

00, 55, FF,FF, FF, AA, 00,00,00,00, FF, 00,00, 00,00,00,C439 

00,FF, 00,M,00,00,00, 00, FF, 00, 00, 00, 00, 00, 00,FF,C736 

00,00,00,00,00,05,5F,00,00,00,00,00,A5,5A,FO,00,C989 

00,50,F0,A5,5A,F0,F0,00,C5,5A,63,5F,F3,E6,B4,3C,D252 

78,3C,E4,F3,F0,F3,FO,3C,F0,F3,F2,B4,3C,7B,Fl,F3,DEOD 

F1,F3,F1,F2,F3,F1,F2,F3,F1,F3,E6,B4,F0,3C,E4,F3,EC1E 

F2,B4,3C,FO,3C,FO,3C,F0,3C,FO,Fl,F3,F2,F0,3C,78,F6EE 

F0,F3,F0,F1,F3,F2,F0,3C,7B,F0,F3,F0,F1,F3,F2,F1,04D5 

F3,F2,F0,F3,F2,B4,3C,F0,3C,F0,B4,7B,B4,78,F0,B4,1097 

78,F0,B4,7B,B4,78,F1,F3,B6,3C,F0,F3,B6,3F,B5,3F,1AF9 

B5,3F,3E,F3,B7,00,15,36,F1,F3,F2,F3,F1,F3,F2,F3,25B2 

F1,F3,F2,F3,F1,F3,F2,F3,F1,F3,F2,F3,F1,F3,F2,F3,34D6 

F1,F3,F2,F3,F1,F3,F2,F3,F1,B4,F3,B7,00,15,36,00,4002 

33,00,33,00,33, 00,33,00,33,00,33, 00,33,00,33, 00,419A 

14,F3,F1,3B,F3,B6,00,14,F2,F1,F3,B1,33,F3,B6,00,4AED 

14,F3,B6,00,14,F3,B6,00,14,F2,F3,B7,CF,7B,F3,B6,540A 

00,14,F3,B7,CF,7B,F3,B6,00,14,F3,B7,CF,7B,F3,B6,5D6C 

00,14,F3,B7,CF,7B,F3,B6,00,14,F3,E3,97,CF,6B,D3,66AB 

F3,B6,00,14,F3,B7,CF,7B,F3,B6,00,04,0C,79,F3,B7,6F3B 

CF,7B,F3,B6,00,04, OC, 79, F3,B7,CF,7B,F3,B6, 00,04,7755 

0C,79,F3,B7,CF,7B)F3,B6,O0,7A,F3,F2,79,F3,B7,CF,81CB 

7A,3F,B5,3F,B4,00,04,OC,79,F3,B7,CF,7B,F3,B6,64,89B3 

9B,1B,BC,4C,24,18,CC,4C,24,9B,1B,0C,24,64,0C,CC,8ECF 

64,0C, 24,98, 18, 4C,24,18,4C, OC, 4C,9B,18,CC,4C,BC, 9393 

64,18,0C,64,98,8C,18,BC,24,8C,4C,18,BC,64,CC,4C,9963 

98,CC,24,64,18,CC,64,CC,79,F3,00,F3,E6,B4,3C,B4,A24C 

3C,E4,F3,F2,F0,3C,F0,F1,F0,3C,F0,F1,F2,B4,3C,78,ADC5 

F1,F3,F1,F3,F1,F3,F0,F1,F2,F1,F3,F0,F3,E6,B4,F0,BC95 

B4,E4,F3,F2,B4,3C,78,B4,3C,F0,3C,F0,B4,3C,78,F0,C6DE 

F3,F2,F3,F0,B4,78,F0,F3,F0,F1,F3,F2,F0,F1,F3,F2,D541 

FO,Fl,F3,F0,F3,F2,F0,F3,F2,B4,78,F0,B4,3C,F0,B4,E26F 

78,B4,7B,F0,B4,7B,F0,B4,7B,F0,F1,F3,B6,0C,1C,F0,ECED 

F3,B6,3F,B5,3F,B5,3F,3E,F1,F3,B7,00,40,C0,00,40,F4D6 

CO,00,40,CO,00,15,36,B5,3F,7A,3F,B5,3F,7A,3F,B5,FAFO 

3F,7A,3F,B5,3F,7A,3F,B5,3F,7A,3F,B5,3F,7A,3F,B5,01A4 

3F,7A,3F, B5,3F,7A,3F,B5,B4,F3,B7, 3F, 36,00, 14,F3,08DB 

F2,B7,9B,F3,B6,00,14,F3,B6,00,14,F3,B6,00,14,F3,1146 

B6,00,14,F3,B7,CF,7B,F3,B6,00,14,F3,B7,CF,7B,F3,1AA8 

B6,00,14,F3,B7,CF,7B,F3,B6,00,14,F3,B7,CF,7B,F3,240A 

B6,00,14,F3,B7,CF,7B,F3,B6,00,14,F3,F2,FO,F3,B7,2E04 

CF,7B,F3,B6, 00,04, OC, 79,F3,B7,CF,7B,F3,B6,00, 04,3621 
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1115 DATA K,79,F3,B7,CF,78,F3,86,00,04,0C,79,F3,B7,CF,7B,3EC0 
1120 DATA F3,B6,00,F2,F3,F2,79,F3,B7,CF,7A,CF,E5,CF,B4,00,49E3 
1125 DATA 04,0C,79,F3,B7,3F,7B,F3,66,64,CC,0C,9B,BC,64,OC,5149 
1130 DATA 1B,BC,64,CC,1B,CC,4C,BC,64,0C,8C,4C,24,BC,98,4C,57B5 
1135 DATA BC.CC, 24,98, 4C,24,CC,0C, 18,BC,24,64,8C,98,CC,BC,5EB9 
1140 DATA 4C,BC,9B,0C,64,98,CC,8C,64,1B,4C,BC,CC,64,8C,4C,65E5 
1145 DATA BC,CC,79,F3,00,F3,E6,B4,F0,B4,E4,F3,F0,B4,3C,78,7109 
1150 DATA F0,3C,78,Fl,F2,B4,3C,7e,Fl,F3,Fl,F3,Fl,F3,Fl,F2,7DB7 
1155 DATA F3,F1,F3,E6,F0,E4,F3,F2,84,3C,78,B4,3C,78,F0,3C,B8F9 
1160 DATA F0,B4,3C,F0,F1,F3,F2,F3,F2,F0,F1,F3,F0,F1,F3,F2,971E 
1165 DATA F1,F0,F1,F3,F2,F0,F3,F2,F0,F1,F3,F2,F0,F3,F0,B4,A5F7 
1170 DATA 7B,F0,3C,F0,3C,F0,B4,78,B4,78,F0,B4,78,F0,B4,78,BO47 
1175 DATA B4,7B,F1,F3,B6,0C,1C,F0,F3,B6,33,B1,33,B1,33,36,B8FF 
1180 DATA F3,B7,00,CO,00,40,BO,CO,00,40,80,CO,00,40,8tl,15,BF3E 
1185 DATA 36,B5,3F,7A,3F,B5,3F,7A,3F,B5,3F,7A,3F,B5,3F,7A,C5E9 
1190 DATA 3F,B5,3F,7A,3F,B5,3F,7A,3F,B5,3F,7A,3F,85,3F,7A,CC9D 
1195 DATA 3F,B5,B4,F3-,B7,3F,36,00,14,F3,F2,B7,98,F3,B6,00,D55B 
1200 DATA 14,F3,B6,Û0,14,F3,B6,00,14,F3,B6,00,14,F3,A7,1F,DC5C 
1205 DATA CF,2F,5B,F3,86,00,14,F3,B7,CF,7B,F3,B6,00,14,F3,E516 
1210 DATA B7,CF,7B,F3,B6,00,14,F3,B7,CF,78,F3,B6,00,14,F3,EE78 
1215 DATA B7,CF,7B,F3,86,00,14,F2,F0,F1,F3,B7,CF,7B,F3,86,F9A6 
1220 DATA 00,04,OC,79,F3,B7,CF,7B,F3,B6,00,04,OC,79,F3,B7,OOFF 
1225 DATA CF,7B,F3,B6,00,04,0C,79,F3,B7,CF,7B,F3,86,00,7A,0992 
1230 DATA 3F,7A,79,F3,67,CF,7A,CF,E5,CF,B4,64,BC,1B,8C,64,12E6 
1235 DATA 18,CC,8C,64,BC,1B,4C,8C,24,0C,CC,8C,0C,64,8C,18,18D2 
1240 DATA CC,8C,64,98,4C,8C,24,[C,ie,CC,BC,24,64,8C,9B,BC,2096 
1245 DATA 4C,CC,0C,9B,CC,24,CC,9B,8C,64,CC,1B,CC,24,CC,64,289A 
1250 DATA OC,CC,8C,CC,79,F3,B6,3C,79,F3,00,F3,FO,F3,E6, 64,3304 
1255 DATA F0,B4,E4,F3,F2,FCI,3C,F0,3C,78,F1,F0,64,3C,78,F1,3E7B 
1260 DATA F3,F1,F3,F1,F3,F1,F2,F3,F1,F3,E6,CC,F3,F2,F0,3C,4CB3 
1265 DATA B4,3C,7S,F0,3C,F0,B4,3C,78,FO,F3,F2,F3,F0,F3,F0,583A 
1270 DATA F1,F3,F2,F1,F2,F3,F2,F0,F1,F3,F2,F0,F3,F2,F0,F1,6754 
1275 DATA F3,F0,F3,F0,F1,F3,F0,3C,F0,B4,3C,B4,7B,B4, 78,64,7316 
1280 DATA 78,FO,3C,F0,3C,F0,Fl,F3,B6,0C,iC,FO,F3,FO,B4,OC,7D2B 
1285 DATA 19, OC, 19,OC,1C,F3,B7,00,CO,00,CO,80,CO,00,CO,BO,B33B 
1290 DATA C0,00,C0,80,15,36,E5,CF,DA,CF,E5,CF,DA,CF,E5,CF,8DF4 
1295 DATA DA,CF,E5,CF,DA,CF,E5,CF,DA,CF,E5,CF,DA,CF,E5,CF,9B68 
1300 DATA DA,CF,E5,CF,DA,CF,E5,B4,F3,B3,33,36,00,14,F3,F0,A60D 
1305 DATA B7,9B,F3,B6,00,14,F3,6i,00,14,F3,66,00,14,F3,B6,AE3F 
1310 DATA 00,14, F3,B7,CF, 78, F3,B6,00,14,F3,B7,CF,7B,F3,B6,B7A1 
1315 DATA 00, 14,F3,B7,CF,7B,F3,B6,00, 14,F3,B7,CF,7B,F3 Ï B6,C103 
1320 DATA 00,14,F3,F2,F3,B7,CF,7B,F3,B6,OO,14,FO,F3,B7,CF,CB16 
1325 DATA 7B,F3,B6,00,04,OC, 79, F3,B7,CF, 76, F3, 66,00,04, OC, D270 
1330 DATA 79,F3,B7,CF,7B,F3,66, 00, 04,33,26,79, F3,B7,CF,7B,DB50 
1335 DATA F3,66,00,7A,3F,7A,79,F3,B7,CF,7A,33,B1,33,64,CC,E42F 
1340 DATA 4C,64,BC,CC,8C,CC,4C,CC,18,98,4C,CC,4C,CC,8C,CC,ECDF 
1345 DATA 8C,9B,CC,8C,64,24,CC,4C,CC,8C,64,24,CC,0C,64,8C,F4A3 
1350 DATA CC,8C,CC,4C,64,CC,18,98,CC,79,F3,B6,3C,79,F3,00,FD89 
1355 DATA F3,F2,F0,F1,F3,E6,B4,3C,78,3C,E4,F3,F2,F0,3C,F0,09B1 
1360 DATA B4,3C,78,F1,F0,3C,78,F1,F3,F1,F2,F3,F1,F2,F3,F1,162F 
1365 DATA F2,F3,F1,F3,E6,CC,F3,F2,F0,3C,B4,3C,78,F0,B4, 78,223F 
1370 DATA F0,B4,3C,F0,F3,F2,F3,F2,F0,F1,F3,F2,F3,F2,F1,F2,3067 
1375 DATA F3,FO,F1,F3,F2,FO,F3,FO,F3,F2,FO,F1,F3,FO,F1,F3,3F80 
13B0 DATA FO,F2,FO,F3,B6,OC,lC,FO,F3,B6,0C,lC,F3,B7,O0,C0,494E 
1385 DATA 4O,B0,C0,40,80,C0,40,8O,15,36,A4,0C,5B,0C 1 A4,OC,4FlD 
1390 DATA 58,0C,A4,0C,58,0C,A4,OC,58,0C,A4,OC,58,0C,A4,0C,536D 
1395 DATA 5B,OC,A4,OC,58,OC,A4,OC,58,OC,A4,B4,F3,33,36,00,5BAD 
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DATA 14,F3,F0,F2,6F,73,F3,B6,00,14,F3,B6,00,14,F3,B6,619B 
DATA 00,14,F3,B6,00,14,F3,B7,CF,7B,F3,B6,00,14,F3,B7,69C7 
DATA CF,7B,F3,B6,00,14,F3,B7,CF,7B,F3,B6,00,14,F3,F2,7364 
DATA F3,B7,CF,7B,F3,B6,00,14,F3,F2,F3,B7,CF,7B,F3,B6,7E97 
DATA 0Û,14,3C,79,F3,B7,CF,7B,F3,B6,0O,04,0C,79,F3,B7,B630 
DATA CF,7B,F3,B6,00,04,0C,79,F3,B7,CF,7B,F3,B6,00,04,BE4D 
DATA 1D,0C,79,F3,B7,CF,7B,F3,B6, 00,58, OC, 58, 79, F3, 67, 9666 
DATA CF,7B,F3,B3,F3,B6,4C,24,64,CC,18,4C,0C,24,98,4C,9E1C 
DATA 0C,64,18,4C,0C,8C,0C,18,BC,0C,64,9B,18,BC,0C,64,A254 
DATA 4C,0C,24,64,1B,CC,4C,24,8C,4C,64,8C,18,9B,CC,64,A830 
DATA CC,18,BC,98,CC,9B,CC,0C,8C,CC,79,F3,00,F3,E6,CC,B1DD 
DATA F3,F0,B4,7B,F0,F3,F2,F0,F1,F3,E6,64,3C,B4,3C,E4,6E3F 
DATA F3,F2,B4,3C,7B,F0,B4,3C,78,F1,F0,3C,78,F1,F3,F2,C94F 
DATA F1,F2,F0,F3,F0,F3,F2,F1,F3,F0,F3,F2,F0,3C,7B,F0,D737 
DATA B4,3C,F0,F3,F2,F3,F0,F1,F3,F2,F1,F2,F3,F0,F1,F3,E55F 
DATA F2,F0,F3,F0,3C,F0,F2,F0,F1,F2,B4,7B,F1,F2,F0,F1,F305 
DATA F3,F2,F3,F2,FO,F1,F3,FO,F2,FO,F1,FO,F3,B6,OC,1C,0027 
DATA F2,F3,36,0C,F3,0C,F3,0C,F3,0C,F3,0C,F3,0C,F3,0C,0B4B 
DATA F3,0C,F3,0C,1C,F3,B7, 00, C0.80, 40,80, C0,B0,4O,BO,lOOC 
DATA C0,a0,40,B0,15,36,A4,0C,58,0C,A4,0C,5B,0C,A4,0C,152F 
DATA 58,0C,A4,0C,58,0C,A4,0C,58,0C,A4,0C,5B,0C,A4,0C,197F 
DATA 5a,OC,A4,OC,58,OC,A4,B4,F3,FO,F3,B6,00,14,F2,F3,21D4 
DATA F1,F3,3F,9B,F3,B6,00,14,F3,B6,00,14,F3,B6,00,14,29C9 
DATA F3,B6,00,14,F3,67,CF,7B,F3,B6,00,14,F3,B7,CF,76,332B 
DATA F3,B6,00,14,F3,B7,CF,7B,F3,66,00,14,F3,67,CF,7B,3C8D 
DATA F3,66,00,14,F3,F2,F3,B7,CF,7B,F3,B6,00,04,OC,79,4555 
DATA F3,67,CF,76,F3,66,00,04,0C,79,F3,B7,CF,78,F3,B6,4F18 
DATA 00,04,OC,79,F3,B7,CF,7B,F3,B6,00,04,1D,OC,79,F3,55D7 
DATA B7,CF,7B,F3,F2,F3,B6, 00, 72,33, 72,79, F3,B7,CF,7B,5FEA 
DATA F3,86,9B,4C,0C,64,24,98,64,1B,24,9B,18,0C,64,4C,65AF 
DATA 1B, 64, 18,24, 18, 98, OC, 24, 8C, 18,64, 18, 8C,24, 64, 18, 6993 
DATA 64,18,0C,30,8C,24,64,OC,3O,8C,64,30,8C,3O,8C,24,6E27 
DATA 30,OC,24,64,1B,64,1B,CC,79,F3,00,F3,E6,CC,F3,FO,763F 
DATA 3C,F0,F3,F0,F3,F2,F1,F3,F1,F3,F0,F3,F2,F1,F3,F0,84A4 
DATA F3,E6,B4,F0,3C,F0,E4,F3,F2,B4,3C,78,3C,7B,F0,B4,8FD6 
DATA 3C,78,F0,3C,F0,Fl,F3,F2,F0,B4,3C,F0,F2,F0,3C,FO,965A 
DATA F3,F0,F1,F3,F2,F1,F3,F0,F1,F3,F2,F0,F3,F0,B4,7B,A9BC 
DATA B4,78,F0,F1,F0,F3,F1,F3,F2,F0,F3,F"2,F0,F1,F3,B6,B7E1 
DATA OC,59,0C,59,0C,lt,F2,F3,B7,3F,36,Fl,F3,F2,F3,Fl,C09E 
DATA F3,F2,F3,F1,F3,F2,F3,F1,F3,F2,F3,F1,F3,F2,F3,F1,CFC2 
DATA F3,F2,F3,F1,F3,F2,F3,F1,F3,F2,F3,F1,B4,F3,B7,00,DD7B 
DATA C0,00, 40, 80, C0,00,40,80,C0, 00,40,80, 15, 36,B1,33,E32A 
DATA 72,33,B1,33,72,33,B1,33,72,33,B1,33,72,33,61,33,E94E 
DATA 72,33,B1, 33,72,33,81, 33, 72,33,81, 33,72, 33,61, B4,EFF3 
DATA F3,F1,36,F3,B6,00,14,F2,F3,B5,3F,CF,73,F3,66,00,F993 
DATA 14,F3,B6,00,14,F3,B6,00,14,F2,F3,86,00,14,F3,F1,01B4 
DATA F3,B7,CF,7B,F3,B6,00,14,F3,B7,CF,7B,F3,B6,00,14,0B16 
DATA F3,B7,CF,7B,F3,B6,00,14,F3,B7,CF,7B,F3,66,00,14,1478 
DATA F3,B7,CF,7B,F3,B6,00,04,OC,79,F3,B7,CF,78,F3,B6,1E3B 
DATA 00,04, 0C,79,F3,B7,CF,7B,F3,B6,00, 04, 0C,79,F3,B7,2594 
DATA CF,7B,F3,B6,00,A6,59,OC,79,F3,B7,CF,7A,FO,65,FO,2F93 
DATA B4.00, 72,33,72, 79, F3,B7,CF,7B,F3,B6,8C,98,0C,BC,3B30 
DATA 98, 18,BC,24,64,8C,24,0C,24,9B,30,4C,64,4C, 64,24, 3D20 
DATA 4C,CC,9B,OC,18,CC,18,0C,64,OC,18,8C,98,OC,4C,CC,42B4 
DATA 64,0C,CC,8C,64,98,30,0C,4C,64,CC,64,79,F3,00,F3,49F3 
DATA E6,FO,E4,F3,F2,F0,Fl,F3,F0,3C,FO,F3,F2,F0,3C,FO,5783 
DATA F1,F3,F1,F2,F3,F2,F1,F2,F3,F1,F2,F3,F1,F3,E6,B4,(>659 
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1685 DATA F0,B4,78,E4,F3,F2,B4,3C,F0,3C,F0,3C,F0,3C,F0,F3,7195 
1690 DATA F2,B4,3C,FO,F2,FO,Fl,F3,FO,3C,78,F0,F3,FO,Fl,F3,7E88 
1695 DATA F2,F1,F3,F2,F3,F2,F0,F3,F2,B4,78,B4,7B,B4,3C,78,BACA 
1700 DATA FO,3C,B4,3C,F0,3C,78,FO,3C,F0,Fl,F3,F2,FO,F3,F0,964F 
1705 DATA F3,F0,F3,B6,F3,F1,F3,F1,F3,B6,F3,B7,3F,36,F1,F3,A34F 
1710 DATA F2,F3,F1,F3,F2,F3,F1,F3,F2,F3,F1,F3,F2,F3,F1,F3,B273 
1715 DATA F2,F3,F1,F3,F2,F3,F1,F3,F2,F3,F1,F3,F2,F3,F1,B4,C158 
1720 DATA F3.B7, 00,40, CO,00,40,CO,00,40,CO t OO,15,36,Bl,33,C731 
1725 DATA 72,33, Bl, 33, 72,33,B1, 33,72, 33,B1, 33,72,33, B1,33,CD55 
1730 DATA 72,33,B1,33,72,33,B1,33,72,33,B1,33,72,33,B1,B4,D3FA 
1735 DATA F3,F1,3B,F3,B6,00,14,F2,F1,F3,E5,CF,33,F3,B6,00,DE3C 
1740 DATA 14,F3,B6,00,14,F3,B6,00,14,F2,F3,B7,CF,7B,F3,B6,E759 
1745 DATA 00,14,F3,B7,CF,7B,F3,B6,00,14,F3,B7,CF,7B,F3,B6,F0BB 
1750 DATA 00,14, F3,B7,CF,7B,F3,B6, 00,14, F3,B7,CF,7B,F3,B6,FA1D 
1755 DATA 0O,l4,F3,B7,CF,7B,F3,B6,00,04,0C,79,F3,B7,CF,7B,O24B 
1760 DATA F3,B6,00,04,OC,79,F3,B7,CF,7B,F3,B6,00,04,OC,79,09A3 
1765 DATA F3,B2,35,CF,3A,71,F3,B6,00,F2,F3,F2,79,F3,B7,CF,1469 
1770 DATA 7A,3F,B5,3F,B4,00,26,OC,79,F3,B7,CF,7B,F3,B6,CC,1CDE 
1775 DATA 8C,98,8C,CC,1B,CC,8C,4C,24,64,0C,CC,8C,CC,0C,CC,24A6 
1780 DATA 30,98,0C,8C,CC,18,CC,8C,98,8C,4C,8C,98,64,8C,CC,2C92 
1785 DATA 8C,24,64,OC,64,CC,4C,64,4C,CC,79,F3,00,7F,FF,B8,341C 
1790 DATA 7F,FF,FD,88,07,FF,CC,28,8C,7F,FF,F0,55,47,FF,F4,3EA2 
1795 DATA 80,43,FF,1E,3F,FF,FE,5C,5B,00,07,FF,FE,7F,FF,CF,47C3 
1800 DATA FF,FE,7F,D7,FF,EB,9F,FF,3F,FC,30,C3,OC,30,C3,OC,51D7 
1805 DATA 1F,FF,3F,FC,79,E7,9E,79,E7,9E,1F,FF,F8,FE,7F,FF,5CBE 
1B10 DATA B7,FF,37,FE,7F,FF,9F,FF,FE,7F,FF,9F,FF,FE,7F,FF,692B 
1815 DATA BF,FF,FB,7E,7F,FF,9F,FF,FS,7E,7F,FF,9F,FF,F8,7E,7553 
1820 DATA 7F,FF,9F,FF,F8,7E,7F,FF,9F,FF,F0,3E,7F,FF,9F,FF,814B 
1825 DATA F8,7E,7F,FF,93,F8,7E,7F,FF,93,F8,7E,7F,FF,93,F8,8CD8 
1830 DATA 7E,7F,FF,83,F8,6A,7F,FF,93,F8,7E,00,40,00, 40,04, 94C4 
1835 DATA 00,03,7F,FF,7F,FF,BS,7F,FF,F8,08,07,FF,CC,Û1,BC,9D28 
1840 DATA 7F,FF,FO,14,17,FF,F0,20,79,FF,FE,lE,BF,FF,FE,5C,A77C 
1845 DATA 24,00,27,FF,FE,7F,FF,8F,FF,FE,7F,D7,FF,EB,8F,FF,B29C 
1850 DATA 08,88,30,C3,0C,30,C3,0C,1F,FF,3F,FE,7F,FF,9F,FF,BAA1 
1855 DATA F0,FE,7F,FF,9F,FF,FE,7F,FF,9F,FF,FE,7F,FF,9F,FF,C7DF 
1860 DATA FE,7F,FF,9F,FF,FB,7E,7F,FF,9F,FF,F8,7E,7F,FF,9F,D41E 
1865 DATA FF,F8,7E,7F,FF,9F,FF,F8,7E,7F,FF,9F,FF,F8,7E,7F,E036 
1870 DATA FF,B3,FF,FB,7E,7F,FF,93,FB,7E,7F,FF,93,FB,7E,7F,EBBA 
1875 DATA FF,93,FB,7E,7F,FF,83,F8,6A,7F,FF,93,F8,7E,00,20,F5CC 
1880 DATA 00,41, 00,03,7F, FF, 7F, FF,8C,7F,FF,F8, 28,07, FF,CC,FE08 
1885 DATA A8,9E,7F,FF,F0,04,63,FF,F0,C0,39,FF,FE,5C,9F,FF,0902 
1890 DATA FE,5C,20,00,07,FF,FE,7F,FF,8F,FF,FE,7F,D7,FF,EB,13CA 
1895 DATA 9F,FF,00,30,C3,0C,30,C3,0C, 1F,FF,3F,FE,7F,FF,9F,1BDE 
1900 DATA FF,F0,FE,7F,FF,9F,FF,FE,7F,FF,9F,FF,FE,7F,FF,9F,291C 
1905 DATA FF,FE,7F,FF,9F,FF,F0,3E,7F,FF,9F,FF,FS,7E,7F,FF,3573 
1910 DATA 9F,FF,F8,7E,7F,FF,9F,FF,F8,7E,7F,FF,9F,FF,F8,7E,41AB 
1915 DATA 7F,FF,89,FF,F8,7E,7F,FF,93,FB,7E,7F,FF,93,F8,7E,4D35 
1920 DATA 7F,FF,93,F8,7E,7F,FF,83,F8,6A,08,20,00,01,00,03,544B 
1925 DATA FF,FE,7F,FF,F3,7F,FF,7F,FF,EB,FF,BC,7F,FF,F1,A8,6142 
1930 DATA 07,FF,CC,AB,9F,7F,FF,F1,04,63,FF,F2,D0,01,FF,FE,6BF0 
1935 DATA 5C,CF,F5,FF,1C,A0,05,47,FF,FE,7F,FF,8F,FF,7F,FE,769D 
1940 DATA 7F,CF,FF,E7,9F,FF,00,30,C3,OC,30,C3,OC,1F,FF,3F,7ECA 
1945 DATA FE,7F,FF,9F,FF,F0,FE,7F,FF,9F,FF,FE,7F,FF,9F,FF,8C0B 
1950 DATA FE,7F,FF,9F,FF,FE,7F,FF,9F,FF,F8,7E,7F,FF.9F,FF,98CE 
1955 DATA F8,7E,7F,FF,9F,FF,F8,7E,7F,FF,9F,FF,F8,7E,7F,FF,A4E6 
1960 DATA B7,FF,FB,7E,7F,FF,9D,FF,F8,7E,7F,FF,93,FB,7E,7F,B078 
1965 DATA FF,93,F8,7E,7F,FF,83,FB,7E,7F,FF,B3,F8,6A,61,59,BB14 



1970 DATA 08,00,AC,22,3B,13,FF,FE,7F,FF,F3,7F,FF,7F,FF,C9,C46B 
1975 DATA FF,82,7F,FF,F1,AO,47,FF,C4,28,9F,7F,FF,F1,00,73,CEAB 
1980 DATA FF,F2, 12,11, FF,FE,5D,EF,E4,FF,1D,CF,FF,EF,FF,FE,DAC2 
1985 DATA 7F,FF,BF,FF,FE,7F,FF,9F,FF,08,88,30,C3,0C,30,C3,E46A 
1990 DATA 0C,1F,FF,7F,FE,7F,FF,9F,FF,70,FE,7F,FF,9F,FF,FE,EFB5 
1995 DATA 7F,FF,9F,FF,FE,7F,FF,9F,FF,FE,7F,FF,9F,FF,F8,7E,FC7B 
2000 DATA 7F,FF,9F,FF,FB,7E,7F,FF,9F,FF,FS,7E,7F,FF,93,FF,08AF 
2005 DATA FB,7E,7F,FF,B7,FF,F8,7E,7F,FF,9F,F3,F8,7E,7F,FF,14A3 
2010 DATA 93,FB,7E,7F,FF,93,FB,7E,7F,FF,B3,F8,7E,7F,FF,83,1FAB 
2015 DATA FB,66,00,82,00,OA,00,AO,20,13,FF,7F,FF,1F,7F,FF,26B2 
2020 DATA C1,0F,FF,B2,7F,FF,F1,B0,47,FF,C4,01,FF,F1,CE,73,30FE 
2025 DATA FF,F3,1E,11,FF,FE,5C,DC,C0,4F,FF,3C,SF,E4,EF,FF,3BFF 
2030 DATA FE,7F,FF,BF,FF,FE,79,E7,9E,79,E7,9E,1F,FF,00,30,4651 
2035 DATA C3,OC,30,C3,0C, 1F,FF,FA,FE,7F,FF,8F,FF,31,FE,7F,4FEF 
2040 DATA FF,9F,FF,FE,7F,FF,9F,FF,FE,7F,FF,9F,FF,FE,7F,FF,5D3C 
2045 DATA 9F,FF,F8,7E,7F,FF,9F,FF,FB,7E,7F,FF,9F,FF,F8,7E,6974 
2050 DATA 7F,FF,9F,FF,F8,7E,7F,FF,87,FF,F8,7E,7F,FF,93,F8,7589 
2055 DATA 7E,7F,FF,93,F8,7E,7F,FF,93,FB,7E,7F,FF,B3,F8,66,8074 
2060 DATA 7F,FF,83,F8,7E,00,80,20,08,4B,00,23,FF,7F,FF,1F,879A 
2065 DATA 7F,FF,C9,6F,FF,C4,01,88,7F,FF,F0,01,47,FF,F0,DC,921D 
2070 DATA 73,FF,1E,31,FF,FE,5C,0F,FC,EF,FF,3F,8F,9F,CF,FF,9C6B 
2075 DATA FE,7F,CF,FF,E7,8F,FF,3F,FE,30,C3,OC,30,C3,OC,1F,A585 
2080 DATA FF,00,30,C3,OC,30,C3,OC,1F,FF,F8,FE,7F,FF,BF,FF,AEA2 
20B5 DATA 31,FE,7F,FF,9F,FF,FE,7F,FF,9F,FF,FE,7F,FF,BF,FF,BB11 
2090 DATA FE,7F,FF,B7,FF,F8,7E,7F,FF,9F,FF,F8,7E,7F,FF,9F,C738 
2095 DATA FF,F8,7E,7F,FF,9F,FF,F8,7E,7F,FF,9F,FF,F8,7E,7F,D350 
2100 DATA FF,93,F8,7E,7F,FF,93,F8,7E,7F,FF,93,F8,7E,7F,FF,DEE4 
2105 DATA 83,FB,66, 7F, FF, 83, F8,7E,3A,01, 02,10,24,21, 20,03,E4F1 
2110 DATA FF,7F,FF,lE,7F,FF,FC,0B,07,FF,CO,2B,88,7F,FF,F0,EEF2 
2115 DATA 55,4F,FF,F4,C0,A3,FF,1E,33,FF,FE,5C,00,11,47,FF,F7EC 
2120 DATA FE,3F,B7,DF,EF,FF,FE,7F,D7,FF,EB,9F,FF,3F,FE,30,03F6 
2125 DATA C3,0C,30,C3,0C,1F,FF,08,88,30,C3,0C,30,C3,0C,1F,098F 
2130 DATA FF,FB,FE,7F,FF,B7,FF,33,FE,7F,FF,9F,FF,FE,7F,FF,1651 
2135 DATA 9F,FF,FE,7F,FF,8F,FF,F8,7E,7F,FF,9F,FF,FB,7E,7F,2280 
2140 DATA FF,9F,FF,FB,7E,7F,FF,9F,FF,FB,7E,7F,FF,9F,FF,FB,2F39 
2145 DATA 7E,7F,FF,9F,FF,F8,7E,7F,FF,93,F8,7E,7F,FF,93,F8,3AD9 
2150 DATA 7E,7F,FF,93,F0,3E,7F,FF,83,F8,6A,7F,FF,93,FB,7E,45B0 
2155 DATA 60,B9,09,20,58,92,00,23,FF,7F,FF,3F,CO,40,1F,87,4C31 
2160 DATA F1,F8,18,F2,1B,00,00,00,FO,3C,8F,23,CO,FO,3C,OF,5315 
2165 DATA 03,C0,FO,3E,0F,83,E0,FB,3E,0O,BF,3F,C0,40,lF,87,5A22 
2170 DATA E1,FB,1B,F2,18,00,03,C0,F2,3C,8F,23,C0,F0,3C,0F,61BB 
2175 DATA 03,CO,FO,3E,OF,83,EO,F8,3E,06,OF,3F,CO,40,1F,87,684E 
2180 DATA E1,FB,18,F2,18,40,03,CO,F2,3C,BF,23,CO,FO,3C,OF,7027 
2185 DATA 03,C0,F0,3E,0F,B3,E0,FB,1B,0F, 8F, 33,C0,40,1F, 87,7711 
2190 DATA EO,FC,18,F0,18,40,03,C0,F2,3C,8F,23,C0,F0,3C,0F,7EEB 
2195 DATA 03,CO,FO,3E,0F,83,E0,FB,OO,0F,8F,33,C0,40,lF,87,85BD 
2200 DATA E0,FC,1S,F2,3C,00,03,C0,F2,3C,BF,23,C0,F0,3C,0F,BD7D 
2205 DATA 03,:0,F0,3E,0F,83,E0,F8,00,7F,CF,11,C0,46,1F,B7,94E3 
2210 DATA EO,7C,18,F2,00,40,03,CO,F2,3C,8F,23,CO,FO,3C,OF,9C27 
2215 DATA 03,C0,FB,3E,0F,83,E0,FB,02,7F,CF,U,00,7E,1F,C7,A34F 
2220 DATA EO,7E,08,60,00,40,03,CO,F2,3C,BF,23,CO,FO,3C,OF,A9F3 
2225 DATA 03,CO,FB,3E,OF,B3,EO,F8,00,7F,CF,01,00,7E,1F,C7,B109 
2230 DATA EO,7C,08,60,00,00,03,CO,F2,3C,8F,03,CO,FO,3C,OF,B74B 
2235 DATA 03,CO,F8,3E,OF,83,EO,FB,00,7F,CF,OA,1A,OD,OC ! 19,BD52 
2240 DATA 00,03,11, 16, 10,06,0B, 14,01, 02, 12,0A,1A,0D,0C,19,BE1C 
2245 DATA 00,03, 11, 16, 10,06,0B, 14,01,02, 12,00,04,0F, 00,00,BEA3 
2250 DATA 00,00,00,00,00,00,00,00, 00, 00,00,00,00,00,00,00,BEA3» 
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■ ■ oici 3 nouveaux pro- 
WÊ duits pour votre Ams- 
■ trad6128et664. Le 
premier intitulé DEBUGGER 
est un utilitaire de manipula- 
tion de la mémoire et de son 
contenu. On trouve des com- 
mandes de conversion binaire, 
hexa, décimale. Un désassem- 
bleur, un éditeur ASCII ou 
hexa, un "deekeur" (action 
similaire à celle de PEEK mais 
concernant une adresse sur 16 
bits). 

Il est également possible de 
remplir Ta mémoire (ou plutôt 
une portion de mémoire) avec 



une valeur. Le décalage de 
zones mémoires est possible 
en indiquant la quantité d'oc- 
tets (négative ou positive) ; on 
peut aussi charger un pro- 
gramme binaîre/le sauver, le 
lancer, le reloger. (Il s'agît 
d'une fonction intéressante 
puisque les programmes ainsi 
'translatés sont normalement 
exécutés). Un programme en 
assembleur peut être exécuté 
pas à pas ou à l'aide de break 
points disposés un peu partout 
dans le programme. Les 
macro-instructions sont égale- 
ment présentes, elles vous 



aideront dans la conception de 
vos programmes en réunissant 
plusieurs instructions qui ris- 
queraient d'être redondantes. 
Graph Set se présente 
comme un utilitaire de DAO à 
options multiples et modula- 
bles. En effet le premier écran 
vous propose un choix entre 
127 instruments ou icônes. 
Dans le cas présent il s'agit de 
composants électroniques. Ces 
icônes peuvent être redéfinies 
et constituer ainsi une biblio- 
thèque de formes. Sinon on 
retrouve les options habituel- 
les telles que tracer à main 



levée ; aérographe, cercle, 
arc de cercle (au 1 /4 au 1 12 ou 
quelconque). Bref, un pro- 
gramme de PAO que nous 
verrons plus en détail le mois 
prochain ainsi que Cl Assis- 
tant qui autorise, comme son 
nom l'indique, le tracé de cir- 
cuits électroniques. 
ELS 
21, rue Jean Dumas 
24660 CHAMIERS 

WEKA 

Vous voulez tout connaître de 
votre ordinateur : ses langa- 
ges, ses routines, ses possibi- 
îités graphiques et sonores, 
son système d'exploitation, ses 
connecteurs, ses périphéri- 
ques. Voici les deux tomes de 

Comment exploiter toutes les 
ressources et augmenter les 
performances de votre AMS- 
TRAD CPC 464, 664, 6128" 
(Ouf I). Les éditions Weka ont 
frappé fort, puisque des mises 
à jour s'effectuent régulière- 
ment et viennent compléter la 
somme d'informations déjà 
disponible. 

Des ouvrages à conserver sous 
le coude (les deux) en cas de 
défaillance du manuel ou de 
votre mémoire. 

Weka 
12, cour St Eloi 
75012 PARIS 

Tel: (16.1)43.07.60.50. 

APC 

Un mïcroserveur, cela vous 
dirait ? Si vous possédez un 
6 1 28, un minitel, un téléphone 
(le poste réglementaire) il ne 
vous reste qu'à vous procurer 
AMSERV 6128, un boîtier se 
connectant à la fois sur la sor- 
tie imprimante de votre CPC et 
sur la prise péri-informatique 
du minitel. Dernière opéra- 
tion : coller la ventouse du 
détecteur de sonnerie sur votre 
combiné. Le logiciel livré avec 
le matériel vous permettra de 
gérer et de créer les pages vi- 
déotex. 

A signaler également toutes 
les commandes de Locoscript 
en 50 fiches du même éditeur. 
Chaque fiche comprend le nom 
d'une commande et ses moda- 
lités d'utilisation. 
Rappelons aux étourdis que 
Locroscript est le traitement de 
texte livré avec le PCW. 

APC 

7, rue du Capitaine Ferber 

75020 PARIS 
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